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EXERCICES 
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EDITIONS 


Nous approfondissons dans ce chapitre quelques instructions de l'ORIC-1. 


PRINT TAB () : 


PRINT TAB{() présente deux anomalies : 
Il faut ajouter 13 pour obtenir la tabulation souhaitée. 


Exemple : 


14 PRINT TAES 154505; "ORIC" 
Affiche ‘ORIC’ en colonne 5. 


14 FRIHT MOUPONT "à TAEC 1348 5; "JEAN" 


N’affiche pas ‘JEAN’ en colonne 8 comme cela devrait être le cas. 
On procède donc ainsi: 


15 HOMS= "DUPONT: PRSE= "JEAN" 

24 PRINT HOMS$: SPC 2G-LEMHE HOMS$ à: 
SA FRIHT FR 

RUH 


C'LIFOHT JEAN 
He— 20 —#| 


LPRINT TAB () : 


Pour obtenir la tabulation verticale, il faut ajouter 13: 


14 HOMS:="COUPONT" PRESS "JEAN" 
4 LPRINT HOMS:TAES 154 5 FRS 


Nous présentons ci-dessous un programme d’édition d'étiquettes. Les adresses sont stockées 
en DATA. 


Plusieurs étiquettes sont imprimées sur une ligne. Par conséquent, il faut utiliser des tables 
‘tampons’ pour stocker puis imprimer les noms et adresses. 


NOMS( ) ADRS( ) 


DUPONT 61 - DOMFRONT 
BREBION 14 - BAYEUX 
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Etiquettes 


14 FREM ETIGUETTES 

24 : 

39 IHSEE "Intervalle entre 
4% HH=é " Hombre d'etiquett 
54 : 

56 DATA ME CUPFOIT 61-COMFROMT 

ra DATA MR EFEBIOH.  14-EHYELX 


24 CATA ME EALUTIH,  FS-FARIS 


se 
LA] 


Lo io Fo Fo PF Po TO I gemmes 
HD UMJDNLUNEe QU MJMINBUTRME 
LS GR D D GR D D RD DS D QG 


CATA MF ROLLET, Fa-FARIS 


CATA ME MARIO, Fr-LAGH' 
CATA MR DEGREMONT,S2-ST CLOUD 
FOR Kei TO IHTOHH-S 
FOR Tel TO 3 

READ HOME T 1, ADRESSE I à 
:ME#T I 


FÜR Ii TO 5 
LPRIHT TAB LS+CT-1ÉETH OS: 
LPRIHT  MOMSET 

:MEAT T 

:LFRTHT 


FOR Ie1 TO 3 
LPRIMT TABLE IT ÉTH+E 
LFRIHT ADRHE TI 1: 


:MEXT TI 
GB :LPRIHT:LFEINT 
14 HEAT EH 
MF CLIFOMT MF EREETON 
ël-COMFRTHT 14-EAYELIX 
HE ROULET ME MARTIN 
Pa-PFARTIE Fr-LAGH 


etiquethes 
RE 


MF EALLITIH 
Fa-PARIS 


MR DEGREMONT 
S£-EST CLOUC 
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Editions imprimantes : 
Pour éviter que l'imprimante ‘oublie’ des caractères, on fait : 


125 CALL #ED41 " Clavier inhibe 
126 LPRINT "COUCOU" 
127 CALL #ECC7 “ Activation clavier 


Pour lister un programme, on fait: 


ë CALL H#ECGI:LLIST 14- 
16 Frogramme a lister 


Couleurs avec PLOT X, Y : 
Avec PLOT, les couleurs d'écriture et de fond peuvent être déterminées en ajoutant à la 
chaîne à imprimer 


. CHRS (couleur écriture) 
. CHRS (16 + couleur fond) 






DA MheCHRSC DEUMERT" 
4 FLOT 16,168 





4 


LE Ms CHRSE LÉ et CFOHL ROUGE "4 CHRSGE LE 
PLOT 12,1£,7$ 
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COPIE’ D'ECRAN 


Pour recopier un écran sur imprimante, nous utilisons l'instruction SCRN(C,L) qui fournit le 
code ASCII du caractère de la position spécifiée. 


Copie écran — imprimante 


COPLE ECRAM-CTMPETMANTE 





IMPRIMANTE 





ECRAN 


FILL : 


Fill permet de colorier des parties d'écran. 
Il permet également de modifier la couleur d'écriture (foreground) 


14 HIFES 
EH CURSET 0, Z2:FILL 54.1,€ 





Ai CURSET 4,6, 1:CEAM 166, 16, 1 





52 PROGRAMMES | 11 


KEYS$ 


Avec la plupart des Basics, lorsque nous appuyons sur la touche <RETURN> en réponse à 
une instruction “INPUT”, la variable spécifiée dans l'instruction prend une valeur nulle. 
Sur ORIC-1, il faut nécessairement entrer une valeur avant d'appuyer sur <RETURN >, ce 
qui n’est pas pratique. 


Nous proposons ici un sous-programme qui remplace l'instruction ‘INPUT’ tout en permettant 
d'appuyer directement sur <RETURN>. 
À chaque fois qu’un caractère est saisi par ‘KEY$’, nous le concaténons à ‘LIG$’ 


LIG$ 


bufrlofn] + ci] 


Le code de suppression de caractère (en cas d’erreur de frappe) est géré par le programme 
(code 127 de la touche DEL). 


La première version de programme présentée saisie une ligne là où se trouve le curseur au 
moment de l'appel du programme. 

La deuxième version, saisit une ligne dans un endroit de l'écran spécifié. Nous utilisons pour 
cela l'instruction PLOT X,Y. 


pu 


XL, DUPONT 





INPUT avec KEY$ 


dasmemsmmcmmmemes INPUT AVEC KHETSR 22 






°IF Cé="" THEH 34 
C0: LeLENCLIGS à 

THEH FRIHT:FETURH 
27 THEN 5198 


Sen TE THEH LIGS£ELEFTS#E LITIGES. io PRINT CHEB LES 1 GOT SEE EL 
SE 244 

3Gaû 

31968 IF CESSE THEN FING:GCOTO 3646 


3114 LICS= =LIGH4CS:FRINT C&: 
3129 COTO 2646 
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Saisie avec KEY$ et PLOT 


FEN SLIG SAISIE AVEC KEY$ ET FLIT 


CLS 
< LIGS=" LL 
48 #“L=18:"L=1a " Coordonnesz affichage 


Life 
aDuiu 


68 L=<LENCLIGS) 
79 PLOT #L+L,ï'L,134  Curseur 


94 CH=KEY$S:IF C$="" THEH 3% *‘ Attente caractere 
188 C=ASCCCS à 


119 IF C=13 THEN 26@ “ Retour chariot 

124 IF C<>127 THEH 154 “ SuPPression 

134 : 

14A IF LA THEN LIGS=LEFT#LIGS,L-15:PLOT éL+L. rL." "GOT 64 ELSE 
ag 


154 IF C<32 THEN FING:GOTO SG 
155 LIG$S=LIGS+C$ 

164 FLOT 4L.YL.LIGS$ 

176 GOTO 64 


248 PLOT #L+L.YL." " 
218 : 


Test clavier avec PEEK (- 208) : 


Le test des touches peut se faire par la lecture de la mémoire # 208. 


FENM  CEFLACEMENT FAFICE 
PRIHT CHARGE E 2: :FENM clavier mugt 
JRES 4 





“LYC. 17  EEM rousse 


ee es 
Si D Gi QG UE 


H=PEEKS HEGSOUCIF #eûé THEH FH :REM attente 


FPLOT Lire. 16 





GOT 


— 


Fire miE pe LD CM in Biifir 


ä 

fi 

(] 

GE 

14 IF #“#=1Fz THEH 
24 IF 155 THEH 
38 IF #=156 THEH 
44 IF “#=156 THEH 
34 FLOT #C:YC. 17 
[als] E 
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Le programme ci-dessous affiche 2 nombres au hasard et demande quel est leur produit. 


Multiplication 


Votre réponse 





19 REM MULT MULTIPLICATION 

15 : 

24 CLS 

34 : 

44 #“Lzig: "Lei :REM Affichage ligne 
41 REM------ 2 nombres entre 1 et 24 -----—- 


43 N1=IHTC RDC 1 3420 2: M2=INTCRNDE 1 #20) 
45 IF H1<5 OR H2<S THEH GOTO 43 


54 PLOT 4L-1,%L-4,STR&< H1 
52 ASE UAIAESTRSE(C MO: PLOT #L-2,rL-3, #48 


55 PLOT XL-1,%L,"=" 


57 GOSUE 62 

58 IF VALELIGSIEHI#HNZ THEN PLOT 15,15,'"0K...,.," 
59 WAIT 24G:G0T0 24 

ÉQ REM=— ma ne ace a am one nounou Saisie d'une ligne 

6e LIGg="" 


63 LeLEMCLIGS 
F4 PLOT #L+L,"L,134 


98 C$<KEYTS:IF Cé="" THEH 94 
14G C=ASCE CS à 
116 IF C=13 THEN 266 


129 IF Cé>127 THEN 154 :REM SuPPression 

136 : 

148 IF L2?4 THEM LIG&=LEFT#CLIGS,L-153:PLOT AL4L,"L," ":GOTO 65 ELSE 
9a 

145 


154 IF C<32 THEN FIHG:GOTO 99 
155 LIGS=LICS+C$ 

168 PLOT xL,"YL,LIG# 

17A GÜTO 63 


298 PLOT #xL+L.yL," " 
214 RETURH 
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CARACTÈRES SPÉCIAUX 


Les caractères spéciaux permettent d’afficher des messages de couleurs différentes, clignotants, 
en double hauteur. Nous présentons ici quelques exemples. 


Affichage multicolore double hauteur 


14 KEM AFFICHAGE MULTICOLORE COUBLE HAUTELF 





# HÜEL..,." 





di ? = 
EG Sb=<CHRSE | 

EE FÜR IsiT 

FH ‘£ CsI-IHTI LT ET :FENM couleur 
EH He RE CHRSUE D ÉMTDEC ASE T.1: 
E) 
Î 
Î 
1 





fi HET I 


FLOT 4,755 
PLOT +168 





DRARLNEUX] 





Ce qui apparait —% JOYEUX … Double 
à l'écran hauteur 





Affichage bicolore double hauteur 


AFFICHAGE DCOUELE HAUTEUR EICOLORE 















14 REF 

o ie Moitié 
ss LL: Double 

34 A$=" JOYEUX HOEL..." ee 
44 =ii 

24 éesCHRSE 16 144$ 

115 PLOT CNET: 

LE FLOT «T4 1.#5$ 

154 PFLÜT #-1:%,1 
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Affichage multicolore avec défilement 


Et 


FE AFFICHAGE MULTICOLORE 


“ 
A, 


CLS 
A$="ORTE FOLF TOUS, ." 


* inEe 


o 
x 





Ti Lu 
Di 


JOYEUX NOEL 


= 


FC IF I=1 TÙ LEN AS 1 
LeT-IHTE LEP IET 
LéBe$+U HER | 

HET TI 


tiITE 





É MI DS A$.1.1: 


pe 
Sr 


=, 
: 


FLOT 1.19,4# 
RE 
SBsERTGHTEE 
5 MAIT 1 
SAT 144 







CD 


Je iii 


me ROAT IN OneSnEMÉ msn 


1 HLEFT#E ES, LEMÉ 4] 


=. 
Ex, 





me Li) 0 CA He di Die 
=, 





Affichage multicolore double hauteur avec défilement 


= 
G ERA, 


FEM AFFICHAGE MULTICOLORE COUBLE HAUTELF 
FRET AVEC CEFILEMEHT 


Ci À 
xx 


ER 
GE: 


Se MIA 


Lili lir 
RE 






"JOYEUX HÜEL, .,." 


Double 
FC IF I=i TO LENS A$ hauteur 
ATÉ :FEM couleur 


:K =H$+ CHF ES 0 | | | 
JOYEUX . 

PLOT #1, 1,10 

PLOT #1, +1, 14 


 : 
ä PLOT av 
28 PLOT Hi v+1# 












SNS SSGERDE 


x 
= 


È", 





34 à 
A HSSRIGHTEE ES, LALEFT SE ES, LEHC 46 12 à 
5 MAIT 18 

54 GOTO 114 


mers pe pe Lg 1 Lt O0 4 5 LM Se 
Ex 


ES te 
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COULEURS BACKGROUND 


Ci-dessous, nous changeons la couleur de fond (BACKGROUND) de 2 parties de l'écran. 
De la même façon, nous pourrions changer la couleur d’écriture. 
Il suffirait d'écrire : FILL H, 1, C (au lieu de 16 + C). 








Fond 
bleu clair 
















Fenêtre BACKGROUND 


14 FEM FEHETRE ÉACEGEOUNC 


34 HIFES 

35 IHE1 

35 FEM------ Fenetre 1 

4 Ai=12H:Tlel HeSG: Les: Ce: GOSUE SE 
9 REMe-----.— Fenetre € 


ie 124: sf: He: Les: Ceé: GOSUE ZE 
RE Courbes 

A1 FA: TAGS : :GOSUE 19) 

#g=1ra: "Es 125: GOSUE 54 

STOF 


, X=-PI TO FI STEF FI‘15 


HET TEAUEZE, 





RETURI IFH 


3TOP 

REM---eme-e SPCM FEHETRE 
CURSET #1,%1,:5 

FILL H:1.:16+0 

CURSET C#1+L ii, "1.64 

FILL H,1.16 

244 RETUFH 


DARLAELUE LUE LX EN EX 
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HISTOGRAMMES 


Grâce aux couleurs, l'ORIC-1 permet une présentation attrayante des résultats. Nous 
présentons ci-dessous 2 types d’histogramme. Les valeurs sont contenues dans une table 
VNTE(). L’échelle est calculée automatiquement. 














Avec DRAW : 

700 

600 
500 
400 
JANV FEV MAR nn. | 
L 

L Fond jaune 

Avec FILL : 














[an FEV MAR AVRIL | 
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Histogramme avec DRAW 
19 EM LSTOGRAMME 

















34 GATA JUILL FE 

144 FÜR Mel TO Hi 

114 :READ MOISE NS, MNTEL M 

124 HEËT 

154: 

14 0 vivue Ge tre ni vo et 008 en cts Une Pom ion es 

15 : IN: PAPFERE 

165 VAS LEE CRENM Depart axes 
165 RE Tntersalle 
16r = 1264 :FENM Haute Omar 
168 FEI mm Fecherchée maxi 
174 MA=VHTES 12 

171 FOR HzZ TO HN 

1PE GIF VAHTECMISME THEM MazVHTES M 
173 HEAT M 

175 ECH=HECR MX 

179 RM “ 

184 CURSET 46,%6, 1: DRAM HITET .1 

2084 CURSET “4.8, 1:DFAN G,-HECR:. 1 

229 REM=--—————— Affichage mois 
225 FOR AM= 402606 Y0+5 444 TO 4GS9E + EE EAN STEF 46 
226 :PÜKE AM+£Z. 1645 


227 NEXT AM 

228 : 

238 FOR M=1 TO Hn 

235 : CURSET AA+2 +T##0M-1 1, A4 16, 
236 : FOR I=i TO LEHCMOIS#ENM 


238 : AZAECEMIDSE MOTESC Mi, TT. 1415 
238 : CHAR #:4:1 
239 : CURMOY 6.4.5 


249 : HEXT I 
245 HEXT M 


284 FREM------- Courbe 
234 CURSET #4, TA-VHTES 1 #ECH 1 
295 


æ 


FOR M=<Z TO Hi 
Cf VHTEL M MHTES M1 HEC 
CRAN TI, -Crr, 1 
HET M 
Rss AFFichage valeurs 


Li LO Lo 
as 
nai 


di Lo 
Bin Nir Gi 
Dm E 











a 
A 







MUHECH-15 
TSH M1 1 


A, 
mn: 






Üi 
mimin 


LB LE hit ii 
Fo ss Mi LD DO — 
RAR EL ELTELX 


HE T M 
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Histogramme LE REM HFILL HISTOGÉANMNE AVEC FILL 


avec FILL 


HH=T 





44 DATA JAHY 

54 DATA MARS 

G CATH MAT, : 

CATA IUITLEL, FE 
FOR Mel TO HN 
REAC MOT#E M, MHTEC M 
HE#T 





AUTH, SG 


ur 9 1 


ui Pins 


D EN) DRAELX ELA] 









RÉ CE 





De RES SESSSSE Mer Re Che che Pas À 
FE A=UHTE 13 
Fi FOR Me TI HN 

E Es 1 INTE< Piste THEH MéeMEITES M 


4 








me (ni 
TO HN 



















3 FÜR He 

Ÿ YHTES M #ECH 

HE DEC Me 4 
“1, 1641 

2 LIOEE MUR LE VE 5 


4 REtteenen men HÉTICHAGE MATEUrRs. 
FOR Mzi TO HN 
VB MNTEC MU#ECHT 15 
CURSET HAE LHC M1 0 4 
LHBRE & YHTES 
TO LEME SE 
MID, Lil 
ou Et L''CUIRMOY 6.45 






HE LB Liiiist 
Fos a LD 
ÉROCEUX ENX ER ET EXT E 
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REMPLISSAGE D’UNE FIGURE 


Le problème consiste à remplir une figure fermée déjà dessinée sur l'écran. 


Parcours du périmètre : 


A l’aide de l'instruction POINT (X,Y), nous parcourons le périmètre de la figure et nous 
stockons tous les points dans 2 tables X() et Y(). 


Point courant 


On cherche 
le point suivant 











Remplissage : 
Il suffit de choisir un point à l’intérieur de la figure et de la faire pivoter autour de celui-ci. 


NS 
. 


On fait pivoter 
une droite 





Nous pourrions calculer le périmètre de la figure en faisant : 
Périmètre 2 SQR(DX*DX+DY*DY) 
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Remplissage d’une figure 


14 FEM REMPLISSAGE D'UMNE FIGURE 


26 : 

22 DIM #C1545,Y< 1542 

25 REM----—--——- Trace d'une fiQure Pour essai 
39 HIRES 


44 CURSET 24,2,1 
SA DRAU 24,19.1 
SS CEA G.34,1 
56 CRAU -24.64,1 
5° CPAM G,-4fn,1 
FA REM-----—- Fecherche Fremier Point 
24 FOR Y=@ TO 193 
24 :FOR “=4 TO 239 
IF POIHTÉ#,Y3=-1 THEN 154 
:HEXT # 
HEXT Ÿ 
PRINT "ECRAH YIERGE":STOP 


El mm 




















FRINT "PREMIER POINT: "x Y 
RElizs=essesssssssszz Recherche de Points 


:REM Foint courant 

FOR F=Z TO 1644 
À FOR Yi=rC-1 TO YC+1 :‘REM Recherche Point suivant 
FOR #l=sC-1 TO XC+1 

IF K1=*C THEH IF YC=Y1 THEN 278 

IF POIHTÉ#1,Y10€5-1 THEN E78 


FOR I=1 TO 3 :RENM Retour arriere 
IF KI=#iP-I5 THEH IF ‘1=Y{P-1) THEN 274 
HEËT I 
KC= #1: YC=Y1: GÜTA 214 
: HET #1 
HEXT ‘1 


PRINT "FIN": :GOTO 702 
21 THEN IF YC=#C33 THEN 70m 





PAU DC: Dar 12-CY 
ï CF Dk=é THEH IF Cref THEH FE 
CURSET Ci, © 

CFA Ci 
728 MEXT I 
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RECHERCHE 
D'UNE SOUS-CHAINE 


Il est fréquent que nous recherchions la position d’une sous-chaîne dans une chaîne de 
caractères. 


CHS CCHS 


DONNE-MOI LE PRODUIT DE 20 PAR 10 


Dans le programme ci-dessous, l'opérateur pose la question DONNE-MOI LE PRODUIT 
DE 20 PAR 10’. En recherchant les positions de ‘PRODUIT DE’ et de ‘PAR’, nous 
répondons à la question. 


Recherche d’une sous-chaîne dans une chaîne 


14 FREN RECHERCHE C°UHE SOLS-CHATHE 
28 FEM CAHS UHE CHAIHE 


44 CLS: INPUT "Votre question ‘:0$ 
45 : 


CHS=0S : CCHS=" PRODUIT CE: GÜUSUE 244 
IF F=4 THEH 4f 
Fis- FIGHTSE OS, LEME Gé 1-F-1@:FisVALE FI 


[a] 

fi 

fi 

ä 

à 

Ta 

19 CHS=F18: CCHS= "PAR": GOSUE 244 

26 

3 IF Pe@ THEN 26 

44 : 

SA FES=RIGHTSEF 15, LENCF1S 1-5 1: FEV ALE FES 
68 : 

74 PRINT:FRINT F1#FE 

#4 STÛF 

SA REM--———— 2 SRG de recherche 










Fat D pa pe pe pa pe pe pe be Ki 00 Ji M 


LeLEHE COAS 


4 FOR Fei TO LEHECH&3-L 

CIF MIDpECH$. Fo LieCCHS THEH 54 
MEET F 

p=û 


RETURH 





Votre questiont CONHE MOI LE PROCUIT CE 2% FAF 19 


AL) 
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APPRENTISSAGE ANGLAIS 
AVEC PRIORITE 


Nous choisissons un mot français au hasard dans la liste des DATAS. Nous l’affichons et 
demandons sa traduction anglaise. 


En cas de mauvaise réponse, nous stockons l'erreur dans une table ER$() et lorsque 5 erreurs 
ont été commises, nous affichons les mots de la table des erreurs. Ainsi les mots mal connus 
sont présentés plus souvent. 





Table des Table des 
erreurs mois justes 


Voisinage de la réponse 
Nous pourrions vérifier si l'élève a seulement oublié une lettre (voir page 47). 
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Apprentissage anglais avec priorité 


EN AFHHG APPRENTISSAGE ANGLAIS AMEC PRTORITE 


ni 


à Hi 
RARRAEL 


HMOT=<1T 
CLS 
CATA LIVRE. BODK TETE. HEAL 
DATA THËLE.TAËLE: LUHCT, HOHCAY 
DATA CHAT.CAT: GEHT, TOUTH 
CATA CHIEH, DOG. HEZ , HOTSE 
CATA MAISON. HOUSE 

DATA VOITURE, CHF 

CATA JAMBE. LEG 

CATA FRCELEME.FECELEN 

CATA EOITE.EU 

DATA EFAS.AEN 

CATA FIELC. FOUT 
CATA CHEF.EISS 
CATA CHAUSSURE, SHOE 


. 
EX] 


DA ELUR 


DORE LUE EX 






LOI CO 3j Qi ON BR To ee O0 mm OO in 





item pre pe pe it LÙ 00 —)j Qi 


IF OHERREE THEH SG 


DARLAELURLA ENT] 





FESTORE 
H=TNTE RHDE À MHNMOT IF HAsk THEN 325 
FO HA=% 


FOR Iei TO &:REAC FRS. ANGS&:MEXT I 





Jin it 


ni 





Un & 
Ci à 


REAC FRS, AHGS 








2 1 


PRIHT:PRINT FEGi" "5 
INPUT "Anglais "iF% 
IF R$=ANGS THEH PRIHT:FETAT "OE' SPRINT :GOTO 244 


ANR! 


PEN mm Hjout erreur 
FOR Izi TO 14 
CIF ERGI TENUE ERGCT 1e 'UEN THEN ER&CT eFRS:TRSC TI = ANGS: COTO dé 


mini 


Le Fo es it LD O0 —. 


mn! 


HET I 


HERF=HERE+1 
FRINT :FEIHT "Erreur la bonne reponse est: !"5AHGSé: PRINT 
GATO 26 


BR E RE RD BE LE BP LH 0 Loc Lo ie 


D-JnIn & 
D 
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nnEe 


RURRX ERA ELA ET 
NAIL 


26 


REMESSSsSesensne Tirage table des erreurs 
IF HERRSS THEH 344 


Be INTÉRNOE 1 TEMERR ELITE ex THEM SES 
IF ER$C HAINE" THEN SES 


HASX 


Gi FRS<ERSC HD: ANGES TRECH 
A PRINT:PRINT FR$i" 


IHPUT Anglais "ir 
IF RS=ANGS THEH FEIHT:PETHT OK: PRTHT : ER Ke EN: MERRSHERR- 1 :G 
pla Ls 


PRINT :PRINT "Erreur la bonne réPonse est: "3 ANGS: PRINT 
GOTO 54 


ORIC POUR TOUS 


Deuxième partie 
ÉDUCATION 
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TRACÉ D'UN DESSIN DÉFINI 


EN DATA 


Le programme ci-dessous trace une figure en reliant entre eux des points définis en DATA. 


Tracé de dessin défini en data 


28 


388 


REM TDi TRACE DE DESSIN DEFINI EN DATA 
REM CARTE DE FRANCE 

DATA 198,91 

DATA 103,82, 106,76 115,85 


DATA 139,94, 148,149, 145,115 
CATA 136,130, 142,134, 142,139 
DATA 145,154, 148,164, 148,166 
DATA 142,169, 136,172, 124,172 
DATA 118:184, 199,1%4, 97,181 
DATA 34,184, 82,175, 85,157 
DATA 85,148, 85,139, "3,127 
DATA 79,118, 64,118, 64,115 
DATA 61,112, 61,199, 67,193 
DATA 79,196, 73,166, 82,143 
DATA 85.196. 82,97, 85,94 
DATA 88,97, 94,97, 198,31 
DATA 999,933 

REM-----—-—- 

HIRES : INKE 

READ #XA,YA 

CURSET #*A,%A,1 


READ X.Y:IF K=999 THEH 294 


DRAU X-XA, "YA, 1 

KA=X: YA=Y 

GOTO 239 

REM--—— mu mn CoPie imPrimante 
LPRIHT 

FOR Lz8Q TO 199 STEF € 


‘FOR C=24 TO 199 STEF 3 
: F=g 
: FOR I=Q TO 2 
IF POINTCC+I,L d=-1 THEN Fzi 

t NEXT I 

IF F=1 THEN LPRINT "X";:GOTO 360 
‘ LPRINT " "; 
:NEXT C 
:LPRIHT 


î 
MNEXT L 
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TRACÉ D'UN DESSIN 
PAR SEGMENTS DE DROITES 
ET DIGITALISATION D'UN DESSIN 


Le programme ci-dessous permet de déplacer un curseur à l’aide des 4 flèches +? |, de 
‘valider’ des points et de tracer des droites entre ces points. 


e Pour ‘valider’ un point, nous appuvyons sur ‘V7. 
e Pour tracer une droite entre le point courant et le point valide précédent, nous appuyons 
sur ‘T. 







l' POINT 


Pre 
ET 


V: POUR VALIDER 
T: POUR TRACER 






Le programme permet également de ‘digitaliser’ un dessin : 


e Nous collons sur l'écran une feuille transparente sur laquelle a été décalquée la carte de 


France par exemple. 
e Nous déplaçons le curseur sur le périmètre de la figure et périodiquement, nous ‘validons’ 
les points. Les coordonnées X et Y des points s'affichent alors sur l'imprimante. 


Carte de France 





— >: 
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EXTENSIONS POSSIBLES : 


e Nous pourrions stocker les points ‘validés’, dans 2 tables X() et Y(). 





e La suppression et l'insertion de points permettrait de corriger le dessin. 
e Les tables pourraient être sauvegardées dans un fichier. 


Le programme ‘SIGN’, ci-dessous, reproduit une signature ‘digitalisée’ avec le programme 


‘TDES. 


Digitalisation de dessin+tracé par segments 


if 
& 


D 


CA Be Pi TO EN Po Po life pee ae pe be pa re Ef 
D D BE ii T9 Po DD D M UN Bo F9 me D 
RSR LDOOQDLOLULSEE 


30 


FEN TGES  DIGITALISATION CE CESSIN4TEACE FAF SEGMENTS 


HIFES: IHKE 
#e1@4:#=144 "FEM Coordonnées depart 


CHEHETS IF CSN THEN 15  :FEM Attente fralfFe clavier 
CURSET #71 
CURSET #,%:64 
GOTO 44 


IF Teil THEH CURSET #1 


CEAECÉ CS 





IF C#e"E" THEN CURSET X.Y.0@ 
IF Cé="y" THEN CURSET X,v,1:#Asx: ART: GOSUB SO 





: ga) 
IF C&e"T THEN CURSET KA, A4 DEAN KA A 1 ce 4e: GOSUR 


TH: IF POINTE X. 2-1 THEN T=1 
GOTO &4 


LPRIHT 4,5%: RETURH 


ORIC POUR TOUS 


Signature 


RENM SIGH SIGHATURE 

DATA 127,181; 118,192, 196,183 
DATA 94,194, 8€, 144, F3, 184 
CATA 65,103, 62.142, 61,181 
DATA 62,93, 64:97, 8, 95 
DATA F4,93, 82:31; 94,90 
DATA 192,91, 197,9x, 119,93 
DATA 112,94, 113,96, 112,98 
DATA 11,99, 113,148, 116.181 
DATA 118.194, 115,186, 117,193 
DATA 114,111, 168,113, 192,115 
DATA 34,117, 85.118; 3,118 
DATA 66,117, 6£:116: 61.114 
DATA 62.112, 64,111; 68,199 
CATA 939,993 

REM---- 

HIRES: INKE 

RERADG #4. YA 

CURSET HA, YA 1 

READ HAY:IF #=993 THEH EHC 

DRAM AA TA: 1 

HAS VAS 

GOTO 234 
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CARTE DE FRANCE 


Le programme ci-dessous permet de tester les connaissances en géographie. Il existe 2 modes 
d'utilisation : 


e Nous présentons la position d’une ville et nous demandons le nom de la ville 
(Mode ‘IV1'). 


QUELLE VILLE ? er 
OK 





e Nous demandons de situer la position d’une ville. L'élève déplace un curseur et 
valide la position choisie par ‘V’. Nous donnons à l'élève l'écart entre la position choisie et la 
position exacte. (Mode ‘IV2') 


Position exacte 


DY 


Position choisie 
DX 


DISTANCE = SQR (DX X DX + DY x DY) 


PARIS ? 





© Pour accélérer la vitesse de déplacement du curseur, tester la mémoire # 208. 
(Voir page 13) 
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Carte de France 








14 FE CARTE DE FRANCE 

15 ,: 

18 CIN AMC SG UE TG, Vgé ZA 1 

EM: 

34 DATA 146.31 

4 DATA ASE, 16, Fé 115,55 
SE CATA 134,54, 148.194, 145.115 
SG DATA 136,139, 14,124, 142,133 
Fa DATA 145.154, 142,164. 148.166 
84 CATA 142,169, 136,172, 124,174 
939 DATA 115,184,  199,1%4, 97.1%1 
144 DATA H4,1%4, 82,175, CHER ETS 
114 DATA 85,145, 65.139, r3.187 
124 DATA FH,118, 64,118, 64,115 
134 DATA 61,112, €1.1H3. Er. 149 
144 DATA FH 1GÉ, 3,186. 8e. 143 
154 DATA 85,196, 2,97, ES, 34 
164 DATA 88:97, 34,97, 144,41 
165 CATA 999,399 

LD REMe-sese-senemsenne eme MILLES 
175 DATA 34,143, CAEH 

176 DATA 149,106, FHRIS 

177 DATA 146,115, RLEANS 

178 DATA 3. 115LE MAHS 

184 DATA 3,115, LORIENT 

182 DATA 67.112. BREST 

184 DATA 97,133, : POITIERS 

186 DATA 143,145, LIMOGES 

188 DATA 31,157 "BORDEAUX 

194 DATA 134,159. LYCOH 

192 DATA 126,148, GRENOBLE 

124 DATA 136,169. MARSEILLE 

136 DATA 146,172, TOULOUSE 

244 DATA 999,999, 2222 

216 REM--=----- 

E15 HIRES : IHK3 

224 READ “A. TA 

225 1 


234 REAC #.% 


CRAN ATOUT EE 


CURSET #4: TA; 






OT TORTANE A 





ë 
Eux] 
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34 


41m IF Mé="IV1" THEN GOSUE 1808 

415 IF M="IV2" THEH GOSUE 1248 

453 GOT 4m 

dE : 

465 : 

478 

475 

486 

A 

4aä 

435 : 

99Q FREM========2==scceve2e [NTERROGATION VILLE === 
1488 V=IHTE RHDC À DENV 41 

1814 CURSET HVC US VEN 1 

1824 INPUT "QUELLE VILLE ":V#:IF V&e"FIH" THEM RETURH 
LRQ IF Vé=Vge Vi THEM PRINT "OK": HAIT 28@:GOTO 1144 
194 : 

1454 PRIHT "HOMI C'EST "MSC: UAIT 2AR:GOTO 1188 
1H9 : 

1144 CURSET HV UD UC US, 

1114 GOTO 19@8 

1129 REl=====e==ecc=2eee INTERROGATION PAR VILLE ==es 
PAG Me GA: = 100 








4 We LHTE MDI L EH 541 
PRINT "OU EST SITUE "ivée 5 
PRINT "UTILISER 4 FLECHES PUIS ‘w°" 





Fa Po 


a] 


TJ NE Po me Mi Nom i 


CéeE"S: IF Che st THEH 1338 
CURSET #1 

CURSET #, 4 

GOT 1254 





1F T=i THEH CURSET 1 


DS St © DO D Dm E 





GA IF Céz"w" THEH 1644 
A T=G:IF POINTE, s-1 THEN Tel 
A GOTO 1254 


CC M res D ME 
D=SQRC Cék DC EC 

24 PRIHT "VOUS ETES 4 "iDk1H:i"KH" 
34 CURSET VE M, CU, À 

35 WAIT 244 

GOTO 1244 
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TRACÉ DE DESSIN EN RELATIF 
AVEC ÉCHELLE 


La carte de France du programme précédent est tracée à l’aide de coordonnées absolues. 


Sur le programme ci-dessous, nous spécifions en DATAS les coordonnées relatives au point 
précédent. Ainsi nous pouvons agrandir ou réduire la taille du dessin. 


Pour obtenir les coordonnées relatives à l’aide des coordonnées absolues, nous faisons : 


240 


#16: 
349 
ain 
3e 


3534 








CATA 144,5 REM À er Foint 
DATA LAS. EE 
CATA .. 
DATA 359,995 
FEALC #4, 74 ler Fait 
READ Tir “es THEH STOF 


Def: De "À 
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Tracé de dessin en relatif avec échelle 


36 


ÉNCRE L E EX ERUENX | 


D T0 
EREETELX 


Fo Pons es pa pe pe pa pe be tt 00 jf Dinbiitir 
= 


Q Fa 
De DJ NB Poe mn 


QU D DNS 


ORIC 


REN TD TRACE DE GESSIH EH RELATIF AVEC ECHELLE 


CATA 144,38 :RENM 1 er Point 
CATA 3. 
C'ATA 
DATA -3, 
CATA 5 
CATA HE, 
CATA -1#, 
CATA — 
DATA 3 
CGATA 
C'ATA 
DATA € 
CATA 53 
DATA 3 
GATA € 
CATA 


in 
mini 










Eu 
ï 
ü 


Ex] 


HIRES: TIMES 
ECH=1,6 

REAC 4.4 
CURSET #4. TA: 1 


:REM ECHELLE 


READ Dé, CIF Dée9g THEH STOF 
DRAM Dx#ECH, DM#ECH, 1 
RASEAHCÉLECH HET ALCSEECH 
CURSET #4, A, 1 

GOT 44 


POUR TOUS 


TÉLÉCRAN AVEC ÉCHELLE 
ET SAUVEGARDE 


Nous utilisons ici le principe bien connu du ‘TELECRAN : 

En déplaçant un curseur à l’aide des 4 flèches Î | <——, nous représentons un dessin en 
laissant une ‘tracé’ derrière le curseur. 

Mais en plus, nous stockons dans une table MDES®%() tous les déplacements. Ainsi, nous 
sommes capables de dupliquer le dessin réalisé dans une autre partie de l'écran avec une autre 
échelle (1, 2 ou 3). 


MDE$ %( ) 


Le dessin que 
vous avez réalisé 


Le dessin 
reproduit à 


l'échelle 2 





Il est prévu un mode pour sauvegarder la table MDEST%() sur cassette. Ainsi, le dessin peut être 
réaffiché et amélioré. Si vous ne désirez pas sauvegarder les dessins, les instructions après 760 
ne sont pas nécessaires. 

AMÉLIORATIONS POSSIBLES : 


Nous pourrions gérer plusieurs dessins : 


e Une table à 2 dimensions MDES(,) nous permettrait de gérer plusieurs dessins indépendants 
simultanément. 
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e Le résultat d’une composition de dessins pourrait être sauvegardée par une sauvegarde 
directe de la mémoire écran par: SCAVE «DES», A40960, E49000. 


© Un dessin pourrait être effacé en utilisant MDES() (comme pour une duplication), mais avec 
CURSET X,Y,0 au lieu de CURSET X,Y,1 


© L'affichage de texte se ferait en spécifiant à l’aide d’un code (CTRL E par exemple) que les 
caractères à suivre sont du texte. 






Début texte 
CTRL E 





Fin texte 
CTRL F 


© Pour accélérer la vitesse de déplacement du curseur, tester la mémoire # 208. 
(Voir page 13) 


SRETUEHS GET 5% 





ses LECTURE DIRECTE 






TE FEIHT PAFPUTEZ SUR SRETURHS FUTS €FPLATS GET #4 
FÉIHT "LECTURE" 
4 CLOAC "M AGAGEÉ, Ed SEE 


à RETUFH 
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Télécran avec échelle et sauvegarde 


14 FEM SDES TELECRAH AVEC ECHELLE ET SAUVEGARDE 
15 TEST 

14 HIMEN #STFF 

1Ë CLS 

4 1 “ a adaPter 





Ets GOSUE FOUR. SAUVEGARDE SEULEMENT 
ai 


mi PRIHT NÊDES : ComPogss un dessin" 

Fa FEIHT " Utiliser les 4 flechez" 

54 FRIHT " F Four fin dessin" 

36 FÉINT "ALES : AF Fiche un de " 

PRINT "ES ‘ Sauvegarde de 
FRIHT ML : Lecture & 

REA msn mer more 
FEIMT: IHPEUT "MODE € 
IF Méa"L' THEN GOSUE 











| 
3 


l 





DREUX) 


| 
ni 


un CA a D Ci M CN à 


IF MS="E" THEM GOSUE ao 
IF ge CDES THEN GOSUE 










IF MS" LD" THEH GUSUE ET 
IF MSe"AGES" THEH GOSUE US 

GOT 184 

RETIRE SRESRARESERSRES COMPOSITION CESSTIM ses 


UD OO On 4 IUT Le 5 Li 







M: DEEE 2 de 










Ce EU THEN 364 





PF 5 Fii Faï 


GÜTO 24 
IF Tel THEH CURSET 4%, 1 


4 IF Che"L" THEH Lex 
SOIF Cée"F" THEH RETLEH 
IF CHae"E" THEH Lel 

IF Cée"E" THEN Lef 


1] 


Ca a Cat Eat et 


ma Ts Le. 


1] THEH T1 
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ni nt 





= 


IF C=14 THEH IF 4 
IF Ceil THEH IF “1 THEH 
RETURN 

RENE: mess MFFICHAGE DESSIN MODES 1 = 
HIRES 

FRIHT "ECHELLE 61,430 "5 GET ER:FEINT ES 
ECHEVYALC ES: IF ECHS1 OR ECH32 #5 3 THEN FETUREH 


ee 
Ex 


ë SRLRS) E 
EU CC CT 0 D CE CS Lt Or CN Po Cu Of A 9 CM im 








H 
# 








Di Ut CR Le ile 


PRIHT "COULEUR EHCRE 04,1,8,.,462 "itGET E# 
PRINT E&:IF VALCE# THEHOIHE VALCES 
PRIT CEFFACEMENT CÛeHi Mi :GET K# 

FEIHT E&:TF F&="0" THEM HIRES 

IHPUIT "4% nuit et THEH éetil 
IHFUT IF ef THEH 





Ba 





CR CA CN CA EN CN ENS UN R ER RE BE RE 





ñ 










AE 

Fu:IF Ceë THEH 64 
à THEH Lei 

THEM Lef 

5 an Êre 


AR LR Ce A 


n 
5 1 





FM MINL 







48 RETLH 


PAG REM-=mmmmne eee LECTURE 
BG4 PRINT "AFFUVER SUR <PLAYS 
18 GET x 

j TEXT 
3 PRIHT 





SRETUEH:" 





CASSETTE" 
LS EAULCES 










ne (ous 


TURE TERMIHEE" lbs 
1H eMDE SEE M  COSUE 5 





ess SAUVEGARDE CASSETTE same 





ee PAFEUYER SUR <RECORDS: PUITS éRETUEHS " 





1: 2aû EALIDE 






PR ENT CRE TERMIMNEE" :PEIHT 
à FETUEH 
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Routine sauvegarde/lecture table 


13994 REM-eese eee een ROUTIHE SAUVEGHEDE-LECTURE TABLE 
19995 REM Cf pevue ORIC septembre 1885 ou Programme ORTC BASE 
19996 : 

20084 CLS:PRINT "ATTENDEZ":PFEIMT 

20045 A=#ESAA: REA C$ 

24@iñ FOR Izi TO LEH CS: STEF S 

AAA eNALE "4 +HT DS DS L'EUPOÉE AW: AA L HET TI 








24034 READC C$:IF Cg<s"a" THEH 14 

s4444 DOÜKE #40, #GA4C : DOKE HAE, HACES:DOKE #d4fid, #HEZSE 

caad4s RETUREH 

2a458 CLATA 556566662334 36300 SAR COTÉES OGBAECASESSACÉESASSS2E 
CéÉESAS dE 
28864 DATA CéES 
A£E1413304 
28874 DATA AASSOAFSESCAFAGSE 101 EACESESCECEF SELS 
HESAODÉBEEZA 

24884 DATA SÉELCASAESCAILESOQF SSASAESSRSSSASGERSSSA4AGALTE I CECSSICHE ICE 


GEFFSESAAFESZ ASE 


ni 








SSADE SAS SDS TAAEES 


24A404 CATA GAERdCE CAT AEERSLAERE 42 42e 1 AUSSAOGEBES STAGES ZE ES AABAAUE LE FE 
1C24F GC 4 AA 

28148 DATA ESAGGACAFARSESASAESS 10 1CEDAF SAGGSENCABQ 8 1 1 SEDAEELACHB69E 
DSÉG1ESASAE 

24114 DATAÉSAISSAIASSAALESGLASAEC AE 1ESÉLÉAZACAEEEZO 1 SESABASE | CEAABSE 
1CEESAIEE 


20124 DATABICASSA36E6Sd6 EI SASCERSSSESE 1 AECFÉSA4SSEZAQBASE I CEZGFÉD18 
Fadéñasg1 
24120 DATASAASÉACAESAACISCFAASACEACF ACESAAALANTHESAASESLTESE 4 GES 08 


SEC BAGE, 
cai44 DATASAMIESACE4CFASAUBE SRE LAC AEZ GAS AASZOBED 1 SAAEAALGEZDOIGFEZ 
ne 

SA DATACSSA4DAAÉAAFF ES SEDAGCCHSSDGGFASSAGESLIASE AR SEAL AGISGAALOEZA 
ESABE 

G164 DATAASSFSECERECF CEA DM 4E 4 AGE 1FAGGGE  CECSCSE4DGGEASESD 1CEF 06 
ECSBICETS 

caira CATAÉSCEAACSEICESSCF SGD SEE QC GA4ESAEAILESCASS 

26184 DATA £ 








M fo D = “ 
Ca 
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ORTHOGRAPHE 


Nous présentons à l'élève un texte dans lequel figurent des fautes d'orthographe. 
En face des lignes contenant des fautes,8 l’élève doit frapper le mot erroné en l’orthographiant 
correctement. 





Entrer la bonne 
orthographe 










Mesdames, Messieurs, vous 
ayant convoqué après une convoqués 


interruption de plux de plus 
deux ans. L 





Nous avons prévu 2 niveaux de difficulté : 
e Les mots mal orthographiés sont distingués par une couleur différente de celle du texte. 
e Les mots mal orthographiés ne sont pas repérés. 


La ‘dictée’ définie en DATA est lue dans 3 tables. 


TXT$ 


une interruption ddplux| | 


MIUSTS$ 






convoque 


ERS 


| 1] 
|} 


plus 


Erreurs Mots justes 








Te — 
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Orthographe 


14 FEM ORTHI DETHOGRAPHE 

15 EHSCHRE ET 

17 IHEd 

24 : 

24 DATA "Mesdames, Messieurs, ous #. Æ 
+ ñ 










4f CATA "au . “QE apres", IT A LL COM OA LEE. 
SA DATA "une interruption de Flux". Ft 





64 DATA "ce Au ans Four. quinée, QUine 
F4 CATA Mm'enbtretenir aues vous", # # 
SA CATH de ce Que le tamPs ecole". Lampes, temps 
34 DATA ecoute a aPPorte de meuf". # # 

GA DATA #.#.# 

54 FOR LGsi TO 24 

64 :READC TETE LG 0 ERREE LG 1, MILIETSE LE à 

PA IF TAT#E LG 1e UEU THEN HLeLG: GOT 2964 

84 MEAT LG 

QA PElMszseseseseesesesesensense MENII| semsesssess 
ga € 





a : Affichage texte 

‘ SPCCSUUATE : Affichage texte avec Faites" 
408 PRIHT:IHPLUT "Mode "MS 

414 IF M$="ATF" THEH GOSUE 995 

424 IF Mé="AT" THEN GOSUE SG 

438 GOTO 364 


SGD REMsss=esmmemescessesse AFFICHAGE TEXTE SANS ERRELIRE x 
518 CLS:PRIHT 

s2a FOR LGsi TO ML 

534 ‘PRINT TXT#ILG 1 

54Q@ HEXT LG 

550 : 

564 GOSUR 1245 

57@ PRINT:FRINT "APpuuez sur CRETURMS MGET #$ 

SS3@ RETURH 

299 REMezszeseseseesesesse AFFICHAGE TEXTE ET ERREURS aux 


995 CLS: PRINT 

1804 FÜR LG=1 TO HL 

1814 :LIGSETATSC LG 01: ERRSERREE LG 1: MJLIETSSMILIST SC LG 1: GOSUE 3444 
1914 :IF P=G THEM PRIHT LIG$:GOTO 1454 

1915 : 

19249 :GH<LEFTSE LIGS, F1 1: DB=RIGHTSE LIGS, LEMCLIGS FL +1 
1834 : 

1948 PRINT G$i" "Et; "BE": ERRS ES: "D": DS 

1545 : 

1954 HEXT LG 

1199 GOSUR 1245 

1114 : 

1124 PRIHT:PRINT "AFFugez aur RETURN "GET #$ 

1134 FETUEH 
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ï :REM mi tint ie 
PLOT 5,23, "Entrez les corrections" 
HER" 
FOIE: Se TE HL 






PEU AND LIGSEN" THEN 1344 
ï DES HUE THEM 1259 
EL Sel. "PFas d'erreur MAIT 156@:FPLOT 5,51," 


1264 0 IF MIUISTÉRELGUESLIGÉ THEH FTING:HERSHER +1: CGOTO LES 
1344 HET LG 

PRINT CHESC ZA 1 REM Maiugcules 
ES=STRSE MER 4 Erreurés 0" :PLOT 5,21.E$ 

RETLIEH 

REN———— 


dE 


LeLEHCERES 

FOR Fei TO LENELTGSH IL +1 

CIF ERRSSMIDECLIGS, FL THEH RETUFH 
HEXT F 

Ps: RETLUEH 

A PREM---esmeene TMPUIT AMEL KES 

: LIGS=" ( 

4414 : 
4424 LeLEMELIGS M PLOT L+L. LL. 1384 

4934 : 

44m CH<KEYS:TF Chant THEN 44 

dnd45 CEASCE CS 

AAA IF Ce13 THEH FLOT AL4L. "LOC RETURNM 

ana IF Cétier THEH diff 

4Aa7a : 

484 IF LA THEM LIGSeLEFT#CLIGS, Led  PLOT LL. TL, MONS GOT dé 
SE 4g4f 

auga 

+1 1F CESSE THEH FIHNG:GOTO 44 

4114 LIGH=<LIGÉ+CS 

4124 PLOT #LiTL.LIGS# 

4154 GÜTO Art 


DSODDNQE Ie MDiQ-JiE 


Lo CO 00 C9 CO PO PO PO 9 Fo pe 


DOG IDDNDEL 
£ QE QUI ID 


£ Lo 
DR) 
& ÿŸ 
A EUX 
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APPRENTISSAGE DE MOTS 


Nous affichons une silhouette d'objet et nous demandons le nom de cet objet. Si une seule 
lettre de la réponse est oubliée (ou fausse), nous affichons la bonne orthographe du mot. 


Nom? BOITE 7 





Nous avons représenté six objets : 


mn OST 


Boîte Pomme Etoile 





Bougie Brouette 


Ces objets sont dessinés par segments de droites (voir digitalisation d’un dessin). 
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Apprentissage de mots 






















14 FENM AFHOT  AFFRENTISSAGE CE MOTS 
A : 
ES HMOT=6 “ Hombre de mots 
34: 
34 REM---- BOITE 
144 DATA 86.144, ÉCREN 
114 DATA 187,87, 187.144, & Ë 
124 DATA 56:87: 31.29: Î 14 
134 DATA 187,87, 147,148, 1 4 
148 DATA 112.89, 187.67, ET 
142 DATA 932.54, 993.999 
5 DATA EQITE 
CIS RENM mm POMME 
CATA 95:75: 144,75 
CATA 143. : 113.86 
4 DATA 113 197,142 
GATA 142 S1.1GE 
DATA 65. ré: SE 
4 DATA F6 4, FE 
ATH EE. ad, FE 
QNMME 
mm ETOILE 
A 119,74, 11786: 134.86 
122,194, 25.121: 114.148 
35.121; 98,188; 86,91 
194,53, 143,74, 393,993 
‘ATA ETOILE 
FEN----—- EQUGIE 
CATA 141.68, 141:128: 113.128 
à DATA 113.74 191.68. 143,63 
CATA 147.64, 187.59, 148,54 
CATA 114.49, 112:47: 114,54 
4 DATA 115:22, 115.58; 114,62 
5 DATA 112.66, 11.63 
A DATA 233.933 
24 DATA EQUGIE 
39 REM-----—- MAI SOH 
A CATA 73.59, 114.59, 114,64 
SA DATA P2.64: PRE Fe. 63 
A DATA 75:69: ro:145, 149.145 
A DATA 149.87, 181,145 
44 CATA 114,145, F1, 
434 CATA 93,73, 23,95 
SGA CATA 93,95, B8, 73 
514 CATA 58:25: 33.87 
SEA DATA 83.87, 
544 CATA MAIS OH 


46 | ORIC POUR TOUS 


GE PEN EROUETTE 

CATA FE: as, 147, Es 
réal21. 
53 


1.121. 


1E 
"A CATA 43.1 
ea DATA Fa. 14 
l 
14 





DATA F3. 
34 DATA Fa 
35 DATA &@. 


Denfim 
HR 


CATA 6.113, 118,113, 122,12 
CATA 113,113 123,95 146,95 
CATA FE: 35: Gé 117 
534 DATA 999.993 
EFRCLIETTE 


A DATA 





di au hasard zx 


F= LHTE ENDE 1 SENMOT IF PefF THEH : 





APSP:RESTORE 

IF Fañ THEH 1H 

FÜR Izi T0 F 

: READ SAYIF 
FEAC MOTS 

HE“T I 

REVERS Affichage 


“=393 THEH SSH ELSE SE4 


mini Ji 


an 
EX 






CH, VV A, 3: GOT 147 


ER D D LR D Pme ii 


F_H=û 
DRAM 


PARERENS EE 

GOTO 1450 

REP nee eve ce ne eee RER CEE 

FEAC MOTS 

LHPUT Horn Ré 

IF FHeNMOTS THEH FAIT "OEM: GOT 124 


GRR ERREURS ELU ER: ELA EX 


GÜÛSUE 1935 


pt db D a ee es OU Ci à 
x 


IF Re LEMCNOT$)-1 THEH PRINT 
1 2 EG 
FRIHT 


Ex, 


"La bone orthografFhe és 


Len] 
A Co Pie RE D A es QD CN 1 Be 9 Po Pme me OU 0 DRAM lue D EG: 


Li 


ti": MOTS 


"La borne réPonse gst 


= ei . 
nu mimi 


Dex, 


HAIT € 
GOT 3E 
FEN--——— 
Ft 
FÜR [ei TO LEHCRS 

CéeNMID£C RS, TT, 15 

FOR Jz1 TO LEHCMOTS$ 

IF Cé=MiDgé MOTS... 1 THEM Rsk+l:GOTO 245% 

ME“T .J 

HEXT I 


Ex B 
ii 


Woisinage de la re 
Horaires ce bonnes Let ss 





FO PF PF Po Fo Fo pe me pee pe re DUR Re Re a pe Et HR ot Mt D PE Pet D a A EL Or Mi © 


ee 9 M 0 Du lde m 
Dom NS OR 


am 


RETURH 
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Li MOTS: 
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Troisième partie 
GESTION 
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BIBLIOTHÈQUE EN DATA 


Des titres d'ouvrages sont définis en ‘DATA’. Afin de les éditer triés par titre, par auteur et par 
mot-clé, nous transférons les ‘DATAS’ dans des tables. 


TITR$( ) AUTS$( ) C1$( ) C2$( ) 


MA VIE ET LA PSYCHANALYSE FREUD PSYCHANALYSE 
PROGRAMMER EN ASSEMBLEUR PINAUD ASSEMBLEUR 


















Titres Auteur Mot-clé 1 Mot-clé 2 





La méthode la plus simple pour obtenir la liste triée par auteur consiste à faire : 


CLES( ) 


FREUD MA VIE ET LA PSYCHANALYSE 
PINAUD PROGRAMMER EN ASSEMBLEUR 






294 FOR LY=i TO HLY 

919 CLESILYS=AUTSE LUE" MATITR SEL 
229 HEXT LY 

230 : 

244 REM TRI GE CLES: : 

294 : 


268 REM EDITION DCE CLES#c à 


Cette façon de procéder présente 2 inconvénients : 
e La table CLE$ occupe une place importante. 
© Les résultats ne sont pas cadrés. 


Aussi, procédons-nous autrement : 
e Nous remplissons une ‘table des Clés’ CLE$() avec les clés à trier (noms d’auteur sur 
l'exemple). Dans une ‘table d’index’ IX(), nous rangeons les numéros de ligne (1, 2, 3...). 


) TITRS$( ) AUTS$( ) 


MA VIE ET... 
PROGRAMMER EN.. 
VIPERE AU POING 
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e Nous trions les tables CLE$() et IX() 


TITR$( ) 


MA VIE ET... 


PROGRAMMER EN... 


VIPERE AU POING 





Ces tables n'ont pas 
été modifiées 


e Après le tri, il suffit de lire la table IX() pour éditer les ouvrages dans l’ordre des auteurs. 


FOR Lei TO HLY 

Has lxt LU 

PRINT ALT 4 0, TITRE 
MEXT # 
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Bibliothèque en DATA 


18 FENM EI ÉIELIOTHEQUE EN CATA 
24 : 
25 CIN TITRE 108 3, AUTSE 144 5%, C1$c 108). C2$c 10û) 
34 DIN CLES1G6 5,1% 16472 
48 : 
54 CATA MA VIE ET LA PSYCHANALYSE, FREUD. PSYCHANALYSE. * 
8 DATA WIPERE AU POING, BAZIN, ROMAH ; * 
F4 DATA FROGRAMMER EN ASSEMBLEUR. PINAUD. ASSEMBLEUR . c8a 
84 DATA BASIC ET SES: FICHIERS, EOIEOI: BASIC. FICHIER 
9G CATA LE BASIC PAR LA PRATIQUE, LAMOITIER. BASIC. * 
199 DATA # 
294 REM========szzzz LECTURE DATAS EN TABLE ======2222== 
214 FÜR Lve1i TO 264 
226 :READ TITHELYUIF TITHÉLYDEUX" THEN NLY=LV-1:GOTO 274 
234 :READ ALTS( LV, C1$6 LV 3, Ce Li 
244 HEXT LW 
24 : 
204 RElzzszesszzesesasssesezsesz MENU ===22szz 
314 CLS:PRINT "Modes :":PRINT 
324 PRINT SPCS 3: "LTITRE Liste Par titre" 
334 PRIHT SPCÉG GI MLELE ‘Liste Par mot-cle" 
364 : 
374 PRIHT:IHPUT "Mode ":M$ : 
264 IF MS="LTITRE" THEH GOSUB SA 
394 IF M&="LAUT" THEH GOSUB 1448 
444 IF MB="LCLE" THEN GOSUE 1564 
454 GOT 314 
499 REM====m==eesc=se=2e2ss=z LISTE TRIEE PAR TITRE ======22=2= 
455 : 
ee LPRINT:LPRINT "LISTE TRIEE FAR TITRE":LPRINT :LPRINT 
SG : 
#14 FÜR Luel TO NLY 
S24 :CLESE LV IeTITRSE LYON: TEE LYIELY 
ME#T LW 
HCLENLY: GOSUR 2449 :REM APPel tri de CLEO) 
REM- Edition 


D D Ji ON 0 D -J OO E 0 
DS SSD 0 GS D D QE D 


D'ONMMMINANANUNENEL 


: K=IXCLY) 
LPRINT TITRSE HD: TAB 13439 à: 
LPRINT AUTSE #5 

HEXT LY 


RETURN 


LPEINT:LFEIHT "LISTE TRIEE PAF AUTEUR" :LPEINT:LFEINT 


194 

1814 FOR Lei TO HLY 

1824 :CLES6 LU ISAUTS$E LIKE LYELY 

1434 NEXT LY 

1944 : 

1454 MCL=HLU:GOSUE 2468 REM APPel tri cle$c 5 
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1AET REM---eEi ti on 
1494 FOR Let TO HLY 
1484 : else Lw 
1934 :LPRIHT ALIT&6 4 3 TABC 13415 1: 

1144 :LPRIHT TITRE! 

1145 HCL=4 

1114 HEXT LY 

1124 : 

1134 RETLIFEH 

1131 : 

113€ : 

1133 

1134 : 

1499 FEMesssssmesessesmesezss LISTE TRIEE PAR MOT-CLE szsesememenvums 
1435 : 

1544 LPRINT:LFRIHNT "LISTE TRIEE PAR MOT CLE':LFRINT:LPRIHT 

1595 HCL=A " Nombre de cles 

1519 FOR LYei TO HLY 

1512 : 

1515 © IF LEFT CIgILU I, 1 EMA THEN MCLENCL +1: CLESE MCL eC1$e LU: T4 
ï HCL 3=LY 

1517 IF LEFTSCCESCLYD, 13 <2"Æ" THEN NCL=NCL+1 : CLESC HOL 1028 LU: I 
é HCL 3=LY 

1534 HEXT LY 





1544 : 

1554 GOSUE 2444 " Appel tri cle$ci 

1564 : 

1574 FOR Lei TO HCL 

15884 : HelIACLYO 

1585 :IF CLESILY-1 HE 2CLESELYS THEH LPRINT'LPRIHT CLE&6 LYS: LPRINT 
1599 : LFRINT TAB 13+5 0; 






1684 :LPRIHT TITRE Si TAB 134564: 
1695 :LPRIHT ALT 4 
1614 HEXT LY 


1634 RETUEH 
1294 pElMssssesesesensenmensss TRI SHElLlLessezsesenmemse 
zuGa ECART= HCL 

egi 

2413 ECART= INT ECART 29: IF ECART{1 THEH RETURH 
2817 : 

2424 IV=f 

2434 FOR I=i TO HÜL-ECART 

2444 Ie I+ECART 

2aSg :IF CLESS. Ie CLESC I THEH SAS 
2664 :HS=CLESC I à: CLESE I P=CLES si 
274 sel I 1e LAC T eT HE is TH Jim: Tel 
2984 HE#T I 

2998 IF Iw=1 THEH £@24 ELSE ZE 





mn 
== 
€ 
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LISTE TRIEE FAR TITRE 


BASIC ET SES FICHIERS 

LE BASIC PAR LA FRATIQUE 
MA VIE ET LA FSYCHANALYSE 
PROGRAMMER EH ASSEMBLEUR 
VIPERE Al FOIHG 


LISTE TRIEE PAR MOT CLE 


ASSEMELEUR 
PROGRAMMER EH ASSEMELEUR 
EASIC 


LE EASIC PAR LA PRATIQUE 
BASIC ET SES FICHIERS 


FICHIER 
BASIC ET 5 


if 
m 
in 


5 FICHIERS 
PSYCHANALYSE 

MAR VIE ET LA FSYCHANALYSE 
FÜMAH 

VIPERE AU POIHG 
254 


FROGRAMMER EH ASSEMBLEUR 
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EÛDIEUT 
LAMOITIEF 
FREUD 
FTHAUC 
EAZIH 


FIHALC 


LAMOITIEF 
EOIEOI 


EDIEOT 


FREUC 


EAZIH 


FIHAUC 


19 REM INDEX LIVRE 
24 : 
38 DIM CLES 1993.PG$< 198) 


48 : 
SG DATA F22,INPUT,  P&4,GOTO 
79 DATA P27: IF; P31,F0R 

98 DATA F42,LEH, P42,LEFTS$ 


119 DATA P43.RIGHTS, F4: MIDS 
138 DATA P45,ASC,P46,CHRS, P47, STRS, P47, VAL 

144 DATA P49,CONT, PS2, GOSUB, PS2, RETURH 

228 DATA #,* 

3QQ REM-—-—— LECTURE CATAS DANS PG#c 3 ET CLES( )--— 
319 FOR I=1 TO 194 

329 : READ PGSC I. CLES I) 

330 : IF PG$CI)="#" THEN HM=1-1:GOTO 364 

348 HEXT I 

2SQ RE ee TRI ==> 

360 1=0 

378 FÜR I=1 TO NM-1 

389 :IF CLES(I+1)=>CLES( I) THEN 409 

390 :XS=CLESC 1 2: CLESC I >=CLESC 141 5: CLESC +1 =H$: lV=1 

395 :KS=PGSC I 2: PGSC I D=PGSC 141): PGSC I+1 1x $ 

4a@ MEXT I 

418 IF IV=1 THEN 368 

420 REM = on on ane ec eo eo ou oo oo nm EDITION ---- 


508 FOR 1=1 TO HN 

514 :IF LEFTSCCLES(I-19,1)= LEFTSCCLES 13,12 THEN 524 
515 :LPRINT:LPRINT LEFTSCLES( I, 13: LPRINT 

524 :LPRINT TAB 13430; CLESC I D: TABC 134120: PG$C 1) 

S34 MEXT I 


fi 

ASC F4 
C 

CHFRS F4é 

COHT F4 
F 

FOR F31 
G 

GOSUB PE2 

GOTO Pzd 
I 


52 PROGRAMMES | 55 


ANNUAIRE TÉLÉPHONIQUE 
(AVEC RECHERCHE 
DICHOTOMIQUE) 


Une recherche ‘séquentielle’ dans une table devient longue dès que le nombre d'éléments 
atteint 500. Si la table est triée, on peut retrouver très rapidement un élément par 
‘dichotomie’. 


NOMS TPH$ 


AADMI 


BACHELIER 







043 - 44 - 83 
044 - 20 -15 





Le principe est le suivant : 

On compare le nom cherché (‘CADROT’ par exemple au nom du milieu de la table. 
e S'il est plus petit, on en conclut qu’il ne peut être dans la seconde moitié de la table. 
e S'il est plus grand, on en conclut qu’il ne peut être dans la première moitié. 

Ainsi, nous divisons par 2 l'intervalle de recherche et en procédant de la même façon 
successivement, nous retrouvons très vite le nom cherché. 





INF INF 


AADMI 
BACHELIER 
CADROT 






BACHELIER 
CADROT  |— MIL 







SUP — 

@e ‘CADROT est plus © Maintenant. la recherche 
petit que MEUNIER" se fait dans la 1‘ moitié 
on élimine la seconde 
moitié 
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Annuaire 


f A 


Î 
D 
34: 
44 C 
sg 
69 DL 
18e 


tage 
1410 
1924 
1422 
1425 
STOP 
1428 
144f 
115@ 
1114 
1124 
1134 
114% 
1154 
1164 
1174 
11ieg 
HT:G 
1194 
1244 
1214 


EN AHLI AMHLIAIRE 


ABIVEH, ds, GP, TE 
AE, 43, A4, 19 
EE AGLIERRE., Ed, Gé, SE 
DATA FACHELIER. 645, ÉAESLER, 43,17, 34 
DATA CADEUT, 643,18,18. CAHAHIH. 43, 41,31 
CATA DA COSTA, 643,34,92 DA FDICHAS, 44,25, SE 
CATA DAC, Gi, GS, SE, DABQUCET, 645, 15,15 


ATA AADMI, Hd, see 
ATA AEÛRF. Hdi 68. 
ATA ADAM, F4. 





A DATA #4 


REM—e eee nnnne Lecture DATAS me mmmmemmemense 


CLS 
FOR Izi TO 1444 

:REAC HOMSC I 5, TPHSC I à 

IF NOMSCI = "UE THEN HHs=]I-1:GOTO 1144 


:PRIHT HOMSE I 
IF 151 THEM IF NOMSC I éHOMSC 1-15 THEN PRINT PRINT "Hon brie": 
HEXT I 

STOF 

REM----———— Recherche dichotonique = 


PRIHT: INPUT "Horm "HOMS 
IHF=1:SUF=NH 


MILESIMTE CS THF+SUIROSE 
IF INHPF2SUR THEH PRINT:FRINT "M'existe Pas "PRINT :GOTO 1115 


IF HOMSENONMSEMIL SO THEH PRINT :PRIHT NOM MIL 5" TPS MIL OI FRT 
QT 1114 


IF HOMS<HOMSCMIL: THEH SUP=SMIL-1 ELSE INF=MIL+1 
GOT 1154 
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FICHIER D’ADRESSES 


Sur l'exemple précédent, les informations (en DATA’) ne peuvent être changées qu’en 
modifiant le programme. 


Le programme ci-dessous permet d'introduire et de modifier des données indépendantes du 
programme. Elles sont temporairement stockées dans une table à 2 dimensions FICH$(,). Elles 
sont ensuite sauvegardées sur cassette. 


TABLE FICH$( . ) 


ee 1 -4 


Enregistrement libre 








Sauvegarde sur cassette 


I nes à =. [ 








Remarque : Ce programme peut être utilisé en définissant les adresses en DATA. Il faut dans 
ce cas transférer les DATAS dans la table FICHS(,) 


Tri-sélection 
Pour obtenir la liste triée des personnes d’une seule ville, il suffit de sélectionner les noms ainsi. 


2988 INPUT "Quelle ville ":V$ 
GG IF VBéSFICHSCF.353 THEM 5949 


Tri multicritères 
La liste alphabétique des clients dans l’ordre des villes s'obtient en faisant : 


CLESCF SFICHS&ÈF. SOIF ICHECF, 1 


CLES( ) 
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Fichier d’adresses 


14 REM ADF FICHIER C'ACGRESSES 
15 GRAB:HIMEN H#ESFF 


“ 


5 GOSUE 266 


XX] 
Le 
an | 
_ 
Z 
[3 
FF 
m 
in 
12: 
us | 

M) 
Lux 


CLS: FRIHT "OM 
PRINT SPL 4: 
FRIHT SPC ï 
FRIMT SF 
FRIHNT SFC 
PRINT SFLES C 5 
PRINT: IHPUT "Mode "in 

144 IF M$="C" THEH GOSUE ZE 

1584 IF M$="LECT" THEN GÜSUE 4ÿt 

169 IF Mé="SAUV" THEH GÜSUE ï 

165 IF Mé="LF" THEN GOSUE 14 

174 IF M$="LFI" THEN GOSUE 
F5 IF Mé&="LEN" THEN GOSUE 

IF Mée"LFY" THEH GOSUE 


QDES :":PEINT 
HE : Créeation-modifigcation 
iste fichier" 


! 

















Be es ps Bi ps LU 1 ef ls CA Li 
Drie D Gi D mm E 


DS She 











1PE A 
177 IF Mg='"S" THEN GOSUE 5239 

154 GOTO 54 

194 FElzzzssscesesesessess CREATION MOCICATION masses 
284 PRINT:FRINT "Homt "3: GOSUE SGA: IF LIG$="" THEH RETUEH 

218 KS=LIGE: L=LEME X5 

ET : 

239 FOR RAHGS1, TO SEA 

235 IF FICHSCRANG, L3="" THEN 280 

2 IF ÆB=LEFTS#E FICHES RANG, 12,L5)1 THEH 334 

264 HET FAHG 


3 STOP 


FEN —--- Houvseanu or 

FOR RAHG:1 TO 54 

IF FICHSE FANS, 1x" THEH 294 
CIF FICHSCRANG, 13="*#" THEN 9 
C6 MEXT FAHG 

67 PRINT "TROP CE FICHES":STOF 
288 RENM-- 

34 PRINT: PRINT "Rangement: "5 RANG: : INPUT 'Houveau mom COM "RS 
d IF Ré" THEH 24 j 

FICH$&E RAD, 1 125% 


Le] 
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= 9 10 D —J 
SOS ENS 


es 


at 


B & Big) LU 


Fo 
Det Ex | 


224 
3:39 
564 
994 


1654 
1814 
1424 


REM---- 

PRIHT 

PRINT FICH&E RANG, 21; 

He lS-LEMSFICHSCRANG, SOIF 434 THEH FRIHT SPC HO: 

PRINT "Ref "3; :GOSUR SGGG:IF LIGA SU" THEN FICH#C RAM, 2 2eLIGS 


PRINT FICHS&E RANG, 30: 


& AelS-LEMCFICHS&E RANG, 31: IF KA THEM FRIHT SPCC# 


PRIHT "Yillef "3: :GOSUE 340 :IF LIGHé>"" THEN FICHS#E RANG, 3 5eL1G% 


PRIHT FICH&ERAMG, à 2: 

ASLS-LEME FICHE RANGS, d'in TF 424 THEH FRINT SPC 5 

PEIMT "CPostT ii GOSUE SOBACIF LIGée EU" THEN FICHSERANG, del IGS 
GOTO 244 

FEMaezssesessesessessessesz SAUVEGARDE =sszssseeeemenseseenmens 
FEIHT:FRINT "APPUYER SUR <RECORD: PUIS £RETURH "GET #$ 


PRINT "SAUVEGARDE CASSETTE": HAIT 344 
POKE #67. 4: CALL 1424,FICHS$ 





RETLIEH 


FElazszssszsssessessessessse [LECTURE 
PRIHT:PRINT "APPUYER SUR <PLAY? PUIS <RETURHE "GET #% 
FRIHT :PKRINT "LECTURE CASSETTE" :FRINT 


POKE #67. 


A CALL 1427,FICHS$ 


RETURH 
PAR le error: LISTE FICHIER = 
PRINT:PRINT "LISTE OÙ FICHIER:":PRINT 


1434 FÜR F<i TO 1464 
1944 :IF FICH&CF,109="" THEN 1246 


1854 


PRINT FICH&CE 1 4: 


1464 :H=13-LEMNCFICH&CF 10: IF 434 THEWM PRINT SPC #0: 
1476 :PRIMT FICH&CF. 40; 


1154 


PRINT 


1194 HEËXT F 


1244 


FRIHT:PRIHNT "AFPUYEZ SUR <RETURHS": GET #$ 


1214 RETURH 
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EE FElMszssssssssessesesssessss LISTE FICHIER IMPRIMANTE = 
24 | 


2914 LPRIHT:LPRINT "LISTE Dll FICHIER" :LPRINT 
2424 : 


2434 FOR F=i TO 1544 
2644 :IF FICH&F.11="" THEN ET 
245 :LPRINT FICHSCF, 15: 
2AER :LPRIHT TAEC 13415 5: 
£874 :LFRIHT FICH#CF. 25: 
2484 :LPRINT TAB 1354350: 
2494 :LFRINHT FICH#CF,Z 5; 

2148 :LFRIHNT TAES 12455 0: 

2114 :LPRIHT FICH&IF , dû: 

2184 :LPRIHT 

2194 HEXAT F 

e2A4 : 

£214 FETLFH 

2994 REM-----e— THPUT AVEC KEYS ——- 

3444 LIG$s"" 

3816 

sAdf CH=<KETS:IF Cé="" THEN 364 

3464 CaASCC CS 1: LeLEHC LIGS 0 

3464 IF C=13 THEH PRIHT:RETURH 

ZGéS IF Cé:127 THEM 3148 

3974 

3424 IF LA THEH LIGS=LEFTSCLIGS.L-1: PRINT CHRSC 127 53: GOTO 3G4@ EL 
SE 3448 

5494 

2144 IF C£3E THEN FIHG:GOTO 344f 

2114 LIGS=LIGH+CH: PRINT Cé: 

2129 GOTO 3444 

3129 REM-----—— 

2994 REM=z=szzszeezzs LISTE FICHIER TRIEE FAR HOM z2= 

+ 

ani FOR Fzi TO 14% 

SGEN IF FICHSF. 11e" THEM HFaF-1:GOTO 41 

4434 :CLESCF ISF FICHE Lula F er 

ag4n HEAT F 

4454 STÛF 









4194 GÜSUE 4594 ‘ APFEl tri 
5 


4119 :LPRINT:LFRIHT "LISTE TRIEE FAR HOM:":LPRIHT 
+124 FÜR Fsi TO HF 

4134 :#=IACF 

4144 :LPRINT FICH&E %, 1 1: THEN 13415 1: 

4154 :LPRINT FICHE, Li TAB 13435 15 

4194 :LPFRINT 

+244 HEXT F 

+214 RETURH 
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4438 
4544 
4545 
4514 
4515 
4524 
4534 
454a 
4734 


4535 : 


REM----—- TÉI SHELL 
ECARTENF 


ECARTSIHTÉECART-20:IF ECARTS1 THEH RETURH 


1'/=4 
FOR Is TO HF-ECART 
‘Je I+ECART 
‘IF CLES6 Joe CLESC IS THEH 4564 
Hg=CLESC T1: CLESET eCLESE Ji CLEGE mag He THE T 1e LAC T de TK I: TA 


Lis: IV=1 


4568 
4574 
4664 
4994 
2940 
5414 
SACE 
5430 
5446 
5458 


S964 : 


3198 
5145 
5114 
2129 
5139 
5144 
5154 
2139 
5248 
5218 
est 


cnininiii 


ROUE 
He FL He Co Po Pi Pi 
PQ 9 9 LD 0 Ni 


En UN REXEL ELA EL ER) 
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MEAT I 
IF Iv=1 THEH 4524 ELSE 451 


REMs=ssssesesss LISTE FICHIER TRIEE FAR VILLE #22 


FOR Fe1 TO 144 

CIF FICH&CF, 13e" THEN HF=F-1:GOTO 51484 
CLERE FF ICHS&CF, GC TH FU 

MEAT F 

STÛF 


GOSUE 4594 " APPel tri 
LPRIHT'LPFRINT "LISTE TRIEE FAR VILLE" :LPFRIMT 


FOR F=i TO HF 
HaIKCF à 


LPRINT FICHS&é 4,303 TABC 13415 
LPRINT FICH&E 4, 1033 TABC 13435 15 
:LPRIHT 
HEXT F 
RETURH 


FÉlesssscessesessecessessssescenusemeesss SIPPRHESSION seseseuesse 


PRINT:PAIHT "HomY ic GOSUR SAGACIE LIGHeU" THEN RETUEH 
HOMS=L T5 

FOR RAHG=1 TO 54 

CIF FICH&C ANG, 1 2=NONMS THEM SG 

HE#T RAHG 

PRINT: FEINT 'HCEKXISTE FSU PRINT: GOTO af 


INPUT "Suppression OK CO‘Hi "Ré 


IF R&="Q" THEM FICHSE RAMG, 1 en 
GOT Sd 


ORIC POUR TOUS 


Me nee en eee ROIUIT THE SAUVEGARDE ‘LECTURE TABLE 
CF revue ORIC septembre HE Qu Programme ORIC BASE 





CLS: FRIHT MATTEHNCEZ" : PRIHT 
15 A=#ESGA:REALC Ci 

4 FOR Iz1 TO LEHCD#Y STEF € 
ZE MALE RIT DS DS , IEUGPOEE AV: ASA+LEHEMT I 
24638 REAC D$:IF Dgéi"I" THEH ZGH14 
24444 CÜKE #4GD, HAAAE : DOKE HAE, HACES:COKE #44, HEGSE 
£4445 RETUREH 
26456 DATA ia 339 4436305 AUBEBGQSL ACCES 
C6ESAS: 3424 

ZAGES DATA CÉESSGEEESSAATESZ 4261443 
3261413306 
26976 DATA GABSDGFSESCAF ASE C1 SGCEE 
AEZATéBSEE 
28484 DATA SÉEESGSGEECIESDAF LOIS AICAIAE RES SA4AQAERICECSIICEEICE 
ES:4B4462A 
260999 CATA AdES4CESCAZGEEBEZQERE 424261 GUSZ2GSERS LA A4ER LS ES AABAGE 15 1FE 
1C24F@4D4AA 


RÉRERAGLSSACÉESATESEZA 


n à 


GES SOA d4ES CRE GAGGGE 1 61 FE LT AAA 


LL LL A NP 1 1 






ES E 
: 
R 
mn 
Le 
Eu 
m 
mn 
Eu 
ren 
Len. 
ren 
Le 
DRE 
Le] 
ER] 
Li 
4 
mi] 
mn 
mn 
Fi 
res) 
SE] 
Le) 
S 
e 
pu 
Fes 
En 
Ti 
Fu 
Fe 
Le] 
El 
T 
ü 
F 
Let 
à 
om 


260149 DATA ESAGGGCAF 

D36418A943 

28119 DATRÉSGIRSGIASSAGLERAIASAEC 46 LES LÉQLACAECL AI SENAGOSE 1 CEAAÈSE 
1CEE391B4 

26120 DATAGICASS3386346418ASCERSTIRSE I AICF ES TASSE LAAGAE 1 CELAF 6185 


A 
FS4608501 
20130 DATAR4B26A20ESABCILCF AUSA4CEACF ACE PAAACAACAERAAGE LT ES Ed PALAU 
8860 1B0G6 
24140 DATA2OG4ERACE4CFA2O ARE 
GB6D1B9F 
29150 DATACI24D2D6R9FFES28000CCS 2SDOGFASESGESLIOSE ES ER ANGSAAACOE ZE 
O86ESA69E 
26160 DATARSSFB6CE8SCFCSA1 DOB4E 4 ADF 1 FADAQE 1 CECACSEADAQCASESC' I CEF Q0 
EC8BICE 18 
20174 DATAGSCEARCSB1CE6SCF 9007286 Q2OR4ERALERACES CAES 
29184 DATA 2 
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GESTION D'UN PSEUDO FICHIER 
EN MÉMOIRE CENTRALE 


NRUB$ ( }) TYP$( ) 
Fe enregistrement 


CODE LIB PRIX STOCK 
ROUE | ROUE xx | 

: 300 0 
CADRE | CADRE xxx Ses 
BOYAU | BOYAU xxx | 






FICHS (2.1) TABLE d .) 





Fichier 
séquentiel 


Ce programme permet de définir en mémoire centrale un pseudo fichier sauvegardé dans un 
fichier séquentiel. 

La définition des rubriques, faite de façon conversationnelle, est sauvegardée avec le fichier. 
Créations, modifications et suppressions sont gérées automatiquement. 


Liste triée : 
Pour obtenir une liste triée, il suffit d’écrire : 


10$6 1 22 "CODE": IDE Ze NPETs" " HMomg des zones a editer 


PTRI=1 " Foagition tri 


GOSUE exe 


Des programmes d’application peuvent être ajoutés à la fin du programme standard. 
e Le mode ‘VAL’ donne le total des stocks 
e Le mode ‘TS trie le fichier dans l’ordre des stocks 


64 | oRIC POUR TOUS 


Remarque : Pour le sous-programme de sauvegarde cassette (20000), voir le programme 


EUN. Description 
+ deséones 
Moder DEC + du fichier 


Hon rubrique EOLE y 
TyPeT 
Longueur + 4 


Hom rubrique LIE 





Ham rubri ve | Fin de description 


CODE C CADRES 
LIET CADRE" 5: 15% 
PRIX 2264 


STOCK 7 1 + 


Mode L 











LISTE DL FICHIER 


CADRE 
SELLE 
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Gestion de fichier 


RENM FHEM GESTION CE FICHIER 


: GRAE:HIMENM H#ESFF FE ou HIMEN HSCFF 
24 GÛSUE ZA44A 


DIM HRLIESS 163, T'F$c 14, LGE 135 





à HFICH=G 
5 LG 11:<NFICH 
fi . 


ä REM UNE TABLE À & CIMEMSTONS FICHE HPFICH,HEUE à COHTIENT 
4 REM  CAHS CHAQUE “LIGHE‘ UHE ‘FICHE 


A REM CETTE TAËLE EST SALUVEGARDEE SUE CASSETTE 

GA : 

18 REM HFICH : NÜMERE DE FICHES 

124 FRENM HÉLIE : HOMBRE DE RUBRIQUES 

134 REM MALE : MAXIMUM DE FICHES 

14% REM HEUBSÉ à : HOMS DES RUBRIQUES 

179 REMzs=zzssssssssess=sssessess MEN ssssssssssesamensesss 


134 CLS: PRINT "MODES: ":PRIHT 
264 PRINT SPCCSY:"DESC : DESCRIPTION FICHIER" 
218 PRINT SPCS 5; "VDESC: VISLIALISATION DESCRIPTION" 





212 PRINT SPCS ic 5 CREATIQN-MOCIFICATIOH" 
214 PRINT SPCSiUL ‘ LISTE FICHIER" 


216 PRINT SPCES 5; "SAUY : SAUVEGARDE FICHIER" 
224 PRINT SPFCCS 3 "LECT : LECTURE FICHIER" 
225 PRINT SPCCSi"S : SUPPRESSION FICHE" 
234 FRIHT:IHPUT "MODE ":MS$ 

244 IF M$="DESC" THEH GOSUB 374 
254 IF M$="VDESC" THEH GOSUE SE 
264 IF M$="C" THEN GOSUE 76 

27@ IF M$="SALUV" THEH GOSUE 11284 
288 IF M$="LECT" THEH GOSUE 1:64 
294 IF M$="L" THEH GOSUEB 1448 
308 IF M$="LT" THEH GOSUE 1574 
316 IF M#&="S" THEH GÜSUE 394 

3284 IF M$=""YAL" THEH GOSUE 2134 
334 IF M#&="TS" THEH GÜSUE 2278 
348 GOT 134 
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FEM=====zzzzzzzzzszzzszzzss=zs DESCRIPTION RUBRIQUES =22= 


PRIHT 
INPUT "HOMERE MAXI DE FICHES ":MFICH 
DIM CTRISCMELCH à, LHC MF LCH 3: FDe1 


A PRINT 


FOR Izi TO 1 
PRINT :PRIHT 'Hom rubrique: "is: GOSUER 2444 
‘IF LIGS="" THEH HRUB=I-1:CIM FICH&CMFICH. HEURE à: RETURN 
HRLIESS I =LIGS 
INPUT "Tupe rub CC:chaine‘“Hinumeriquet "5x 
IF A4$<i"C" AND SSH" THEH 434 
TYPSC I I=XS 
IHPLIT LE AUEUE "in 
: LOT = 
NEXT I 


4 PRINT 


PRINT "APPUYEZ SUR <RETURHS M:GET #$ 


ä RETLFH 


REM===ssezsssssesessss VISUALISATION DESCRIPTION === 


PRIHT:PRIHNT "DESCRIPTION DES RUBRIQUES" :FPRINT 
FOR I=1 TO 19 
IF HELBSET DEN" THEN PRINT HRUBS£ I 1, TP I, LGCI 5 
HEAXT I 
PRIHT:PRIHT'APPUYER SUR <RETURHS'":GET 4% 
9 PRIHT:RETURH 


g REMS=sRensssssnsnsnennsee CREATIOH/-MODIFICATION === 


2 PRINT:PRINT "En mode modification, aPPuyer sur <RETURH: " 
3 PRINT Msi la zone ne change Fas":PRINT 
PRINT "R: retour zone arriere! : PRINT 


PRINT: PRINT "Honr "i:GOSUB SAGG IF LIGSs"" THEH RETUFH 
#B=LIGS : LELEH( KS 


FÜR 1=1 TO HFICH 

°IF FICH#CI.11="" THEN FE 

:IF AXGSELEFTS$CFICHSC I: 13,L3 THEH RAHNGSI :GOTO 854 
HEXT I 


PRIHT 

INPUT "HOUVELLE FICHE CO<H3 "iRS 

IF R$<:"0" THEN Fi 

FOR 1=1 TO HFICH 

IF FICHSCI,12="#" THEN RAHGSI :GÛTO 544 
MEAT I 

HF ICH=HF ICH+1 : RANGEHFICH 

FICHS&E RANG, 1 2=x$ 
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REM--—--- 


GOSLE 4908 :REM QU GOSUE 274 
GOTO 714 

EM SAISIE 

PRINT 


FOR I=£ TO HEUE 

PRINT MNRUBSC TI 2: SPCCS-LENC MRLIB@C I 12013 FICHSE RANG, I 3 

PRINT SPC 1S-LENCFTICHSE RANG, TI 14101 

:GÜEUE SGG4:IF LIGé="" THEH 34% 

IF LIGSS"R" THEM IF 122 THEN Is1-1:G0T0 546 
FICH&E RAMNG, I 'ELIGS 


MEAT I 
RETURH 
FElzzzzsssssensessesss SIIPPRESSION sesseesesesess 


PRIHT:IHPUT "HÔM CFifini "ikgiIF #$e"F" THEH RETURH 


3 LeLEME#S 0 
ä FÜR I=i TO HFICH 


CIF HSSLEFTSC FICHE I, 12,L5 THEM RANGSI:GOTO 1464 
HEXT T 


1854 PRINT:PRINT "H'EXISTE PAS":PRINT:GOTO 994 

1864 INPUT "AMNHULE OK CO/H5 iR&:IF R$<>"O" THEN 334 
1474 : 

1884 FICHSCRANG, 1 os "4" 

1434 GOTO 9396 

1431 : 

1995 : 

1936 FEMzzz==zzszzssszz SAUVEGARDE FICHIER seseseseeseus 
1134 PRINT "AFFUYER SUR <RECORD: PUIS <RETURHS " 
1144 GET ## 

1154 PRINT "SAUVEGARDE CASSETTE": PRINT :HAIT 244 


1162 
1164 


1167 
1179 
1171 
1172 
1173 
1175 
1176 
1184 
1196 


POKE #67,0 


LG 11 2=HFICH:LGÉ 12 =HNRUB : LG 13 2=MFICH 
CALL 1424, LG 
PRINT "LG":MAIT 464 


CALL 1924, HRUES 
AIT 3484 
CALL 1924, TYPS 
AIT 394 
CALL 1424,FICHS 


PRINT : PRINT "SAUVEGARDE TERMINEE" : PRINT 
RETURH 
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9 Lo Co Co PO 2 Pi Po 


Dr Oum 
HORDE 


mmmpmpmhH HI RS [ini hais pa pa pape 


1434 
144f 
1455 
1456 
1476 
145 
1494 
1548 
1514 
1554 


FEM 
PRINT: PRINT 
GET 4% 


PRINT "LECTURE CASSETTE" 


POKE #67, 
CALL 1H27,LG 


"AFFUYER SUR FLAT PUIS RETURN? 


:PRINT 


PRIHTULG'S:MFTCHELGE 11 1: HRUIBELGE 12 1: MF ICHELG( 130: PRINT LG 1103 L 


3, LG 150 


IF FD=4 THEH DIM FICH#&EMFICH, HEUE 2, CTRISE MF ICH 


CALL 1427. HF 
? PRINT HRUES 
4 CALL 1427, TY 


CALL 1H27,FT 


344 FRIHT:PRIMT 
FElM=ssssssssesseeseenesss [LISTE DES FICHES === 


ID 1=1:ID6Z 
GOT 1454 
RETURH 


PRINT :PRINT 


1564 : 


1574 
1575 
1584 
15934 
1642 
1614 K 
162 
1634 


164 : 


1654 
1666 


167 : 


1684 
1682 
1684 
1748 
1792 
1783 
1744 
1714 
1724 
1736 


LES 
15 
F# 
CH# 


"LECTURE TERMIHEE" :FRIHT 


ER 


"LISTE DES FICHES": PRIHT 
FOR I=1 TO NFICHI LEE I HET HEXT I 


sesesszzesz [LISTE 


MID SE" PRT AM: 


Fousition tri 


GOSUE 1834 
RETLUFH 
RElissssssses 
ID$e 1 = "CODE 
FTRI=1 
GOSUE 1624 
RETLIFH 
REM------ 
FOR I=1 TO 16 
‘FÜR R=1 TO HALE 
:MEXT KR 
MEXT I 
FOR I=1 TO HFICH 


TRIEE DES FICHES 


IC :5 = "STOCK" 


IF IDC I '=HRUBS CR THEH ICI =F 


CTRT&E I OSFICHSE TI PTE di THAT HET 


NEXT I 
GOSUB 1394 


PRINT :PRIHT 
GOSUE 1229 
RETURN 


"LISTE TRIEE DES 


FICHES" : PRINT 
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1744 REM-- SPGM EDITION ECRAH 


1834 : 
1866 : FOR F=1 TO HFICH 
1874 : 


1884 : FI=TA4XCF 

1885 : PRIMT "I": 

1898 : FOR R=1 TO HRUE 

1984 : IF IDCRY=9 THEN 1958 

1919 : PRINT LEFTSCFICHS#F1, DCR 22, LG IDER DD: 

1915 :  X=LGCIDCROD-LENCFICH#CF1, IDCR OO: IF K29 THEN PRINT SPOCK: 
1319 3 PRINT "I"; 

1948 : MEXT FR 

1954 : PRINT 

136@ HEXT F 

1979 PRINT:PRINT "APPUYER SUR £RETURHS ":GET #5 

1975 RETUFH 

1989 REM = TRI SHELL-METZNER 

1334 FAS=HFTCH 

2809 PRINT:PRINT "JE TRIE POUR VOUS": PRINT 

2814 

2020 PAS=INTCPAS/£): IF PASEL THEN RETURN 

2638 J=1:K=HFICH-PAS 

Pda : 
2454 I=.] 
24F4 LeI+PAS 

2884 IF CTRISCIÉCTRISIL) THEH 2128 

2496 HE=CTR IS L 3: CTRISEL SCTRISC IS CTRISC RH 
DS mel Loi: TK L ie Te se LI: TRE Tex 

G I=I-PAS:IF Il THEN 2126 

GOTO 2876 





à 


ee OT QD Gr CG © LD Po PO PT PQ Pie pa pa be be ère ee (©) 


J=J#t: ER tk THEN ZE 
GOTO A 
SA de L VALORISATION STOCK este me ge ges vos ae ge oo 





FOR Fi TO HFICH 

ETTETT+ MALE FICHE F3 0 ÆVALE FICHS&CEF, 410 
HEXT F 

PRINT:PEIHT "TOTAL STOCE: TT 

PRINT:PRINT MAPPUYEZ SUR <RETURMS: M:GET #$ 


"| 
[a] 
[c 
; 
[al 
A : 
g TT=û 
[a 
g 
F 
(a 
5 
[5 






A INPUT AVEC KES maux 
G LIG#="" 

A CéEETVS:IF Che" THEH 544 

(s) CS 1: LeLEMNCLIGS 

A Ces THEN PRTHT:RETUEH 

D IF Cés12r THEH 3198 
ñ 

F4 

1 

fi 

F1 


IF L:4 THEH LIGSELEFTS$ILIGS, L-1 PRINT CHR LES 3: GOT 3644 EL 


ED 2 C0 0 Lo 0 Qi Le Qt Co Pi Po FO FO Pi Po FO Po Fo Po Fo FO FO Fa Für 


AAA 

af 

F1 IF C 232 THEM FING:GOTO 34m 
il LIGS= LIGS+CS : PRINT C#; 


2124 GATO 2444 


3 
Pers 
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SAISIE ÉCRAN AVEC KEY$ 


La saisie d'informations à l’aide d’une suite d'instructions ‘INPUT’ ne permet pas, en cours de 
saisie, de se positionner sur une zone arrière qui aurait été mal documentée. 


14 IHFUT "Hom "3: HOMS 
28 INPUT "Rue "iRUES 
38 IHPUT "Mille" MILLES 


et + 


Horn? CJFOHT- 
Fuer FE Rue HALE EL 
Miller MONTIGHY 


Nous proposons ici un sous-programme qui permet de modifier des zones mal documentées. Il 
est utilisable avec le programme précédent. Une table NRUB$ contient les noms des zones à 
saisir. Le résultat est rangé dans une table FICH$ (RANG,) 


NRUB$ 


Hor: CUFONT 
Fueg: 11, rues HQE Lg 
Wille: 





POUR REVENIR 
SUR ZONE ARRIERE FICH#( . ) 


RANG——> [DUPONT | 11. rue NOBEL | | 
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Saisie écran avec KEY$ 


sizi 

3122 

3123 

3124 : 

3994 REMz==z=ssesessssssessesz SAISIE ECRAH MOZ =z== 
4aaa : 

4ag1ä CLS 

4915 PLOT 2,23,"%* Pour zones arrieres" 
4G28 FOR Lez TO HARUE 

4434 : FLOT 1:L+1.HRUESL 5 

4835 : PLOT 15:L+1.:FICHS$CRANG, Li 

4ñd4f : 

4168 HEXT L 

4114 REM---—mm em e SAISIE CES ZONES -- 
4124 FOR P=<2 TO HRLE 

4134 : 

4144 :#L=15:'"LeP+1 

4145 :GOSUE 5994 

4168 :IF R=i THEH FICHSCRANG. PF =LIGé 
dira :IF F=2 THEH 42% 

4184 :IF R=3 THEN IF F1 THEH PLAT #L."L.FICHSCRANG. Fi: FeP. 1: GOTO d 
145 

4244 PLAT “L:TL :FICHS$EFANG, F5 

4245 HEXT PF 

4214 KFETURH 

4994 REM-----—-— Saisie d'une ligne 
SaQgg LIG#="" 

sa14 : 

SA24 LELEHELIGS O0: PLOT #L+L,YL. 132 

5934 : 

SAd4A CH=KETS:IF Cé="" THEH SA4g 

2954 CeASCC CS 5: LeLEHÉLIGS 

5955 IF Cz13 THEH Sid4f 

SA : 

5461 IF Cxi1 THEH R=3:RETUEH 

5965 IF C£:127 THEH 5144 

sat : 

5984 IF LA THEH LIGS#=LEFTS#CLIGS,L-153:PLOT #L+L,YL." ":GOTO SA2A EL 
SE 544G 

5994 : 

5148 IF C£32 THEH PIHG:GOTO SG4ñ 

5114 LIGS=LIGÉH+CS:PLOT AL. YL.LIGS$ 

5129 GOTO 542 

5138 : 

5149 PLOT AL+L. L," " 

5159 IF LIG${2:"" THEH Rzi ELSE F=2 
5164 RETURH 
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ÉDITEUR DE TEXTE 


Editeur de texte 
Ce programme permet de saisir et de modifier un texte. L'image de l'écran représente le texte. 





Table LI$( ) 
LI$ (1) 
LIS (2) EXEMPLE DE TEXTE 
2.2.82 
LIS (3) EXEMPLE DE TEXTE 
LIS (4) 








Sauvegarde sur fichier séquentiel 


[2 2.82 || EXEMPLE DE TEXTE [l ) 








L'insertion de caractères dans une ligne se fait immédiatement dès la frappe de ceux-ci (il n’y a 
pas de mode insertion). 

Des caractères spéciaux sont prévus pour la suppression de caractères, la suppression et 
l'insertion de lignes. 

22 lignes de texte seulement peuvent être visualisées à la fois. Les caractères ‘l” et 
la partie de texte visualisée vers le haut et vers le bas. 


TE] 


déplacent 


(Le sous-programme en 20 000 figure à la page 63) 






Bl — 


EXEMPLE DE TEXTE 
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Editeur 
19 REM EDT EDITEUR 


15 : 

24 GOSUE 24495 :RENM Pour sauvearde cassette 
25 IHK4 

26 FRINT CHR 17; :REM SuPPression curseur 


44 CLS:PRIHT "EDITEUR FLEIH ECRAH'":PRIHT 
SG PRINT " à flechezs Pour 2e deplacer" 

6 FRIHT " DEL Four effacer Un caractere! 
79 PRIHT " CTRL A Four sauveSarde 

F5 PRINT " CTAEL E Four edition imPrimante" 


89 FRIHT " ! decalage haut" 
34 PRINT " décalage bas " 
144 PRINT " & insertion ligne 


125 Cé="":C=4: Lig="":lL=<4:FC=f 
144 DIM LI$:S4 5 


174 PRINT 

184 IHPUT 'Houveau texte CO-Hi "RS 
185 IF R$g="0" THEH CLS:GOTO 214 

194 GOSUE 2445 


192 CLS 

195 FOR LIsi TO ZE 

194 : PLÛT 1,LI-1,LI$CLI: 
196 HEXT LI 


344 Bis l:EB2=22 
314 FCz1 :REM Position curseur ligne courante 
329 FOR LI<E1 TO EZ 


344 :IF LIS:M# THEH MEL I 

354 :LIS=<LIS&I LI: GOSUR SEA 

364 :PLOT 1,LI- EL IS" ‘ 

BF LILI ELIS 

384 ‘IF KZ THEN IF LI%1 THEH LIsLI-1:GOTO 346 
385 :IF R=£ THEH IF Ll£=1 THEN 348 

390 IF Fe3 THEH IF LISEZ THEH LISLI+1:GOTO 34 
395 IF F=3 THEH IF LISEZ THEH 2484 

296 ‘IF R=14 THEH GOSUE 3144 

499 REM------ Aiout 1 ligne 

416 IF Kid THEH 426 

415 :FÜR IsM4 TO LI STEP-1:LIS$I+1=LISCIOMEAT L'LISCLIHS"" 
416 :CLS:FOR I=E1 T0 BE 

417 :PRINT LI& I: 

dif :MEXT I 

419 :Mk=sMa+1:GOTO 344 





424 : 

4dA : REM------ Sauvegarde 

459 :IF R<é THEH CLS :GOSUE 34@G:G0TO 137 
+éA RENM------- Décalage bas 


474 :IF F£7 THEN 45@ 

475 :B1=61+1:BZ=B62+1:CLS 

gré :FOR I1=<61 TO BZ:FRIMNTLIS Ii:MEXAT I 
47r :LIsLI+i1:GÛTO 3489 
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424 REM Decalañe haut 

494 :IF 5: THEH SA@ 

495 :IF Bi£=1 THEH 349 

496 :El=Ei-1:62=B2-1:CLS 

437 FOR Ie<B1 TO BE:FRINT LISCIG:MEMT L'LISLI-1: GOT di 





36 
nt [a DEN IT LI 
ai 
( 
REM sSepenaneenres ss Saisie d'une ligne 


1F PC:LEHÉLIS: THEH PCELEMELIS +1 
IF LIg="" THEH FCEI 


) FLOT PC:LI-E1, 132 


c£= KEYS 
IF C$="" THEN FLOT FPC,LI-E1,MID&CLIS. PC. 1: GOT 624 


JD DS ORDRE ET 


Di D DO D'UN CN CA CN CA CN CA CA Ca in El on 
ARR DWYUDIDS ESA 


659 CAS Ce CS à 
664 L= ENS 
662 IF C127 THEH Ed 
664 IF C=11 THEH Rec: RETLURH 
Era IF C=i3 THEM R=3: RETURN 
ÉAE IF C=S THEN 336 
qd Effacement caractere 





635 Cét187 THEH Fi 

DELA IF éL= SEM 56 =4 THEH 64 

Fan LIHSELEFTS#ELTIS, FOI OHRIGHTSC LT, LPC: PLOT 1,LI-E1,LIg+" ":GOTO 
624 

714 REN--- Curseur droite 

F24 IF Leg THEM IF PlieL THEH PLOT PC-6, LT-81, MID LIS. PC, 1 PCsPC+ 


1:GOTO 624 
725 IF C=4 THEH IF FC:L THEN 644 
Fig FEM-- 
FEAR IF Cel4 THEW Ra: RETUEH 
74 IF Csôéd THEN Rad:RETURM :REM I ajout ligne 
734 IF C=i THEH R=é:RETUEH :RENM Sauveñarde 
GS IF Ces THEH R=14:RETUEH 
Ë THEH RaF:RETURH :REM 1 bas 
THE RaË: RETURN :REM ‘ Haut 
IF C THEH PRINT CHR 1: EMC 
 THEH 64 
1 REM---—- caractere normal concatéte 
IF L:36 THEH 64f 
À LIS=LEFTSELIS, PCT SHCH4RICHTEE LISE, LP 
a LiLI-E1.:LIS 


D NS 


D 0 CG O0 C6 O0 CG 0 QU Gt 
ee DiDD-JnAE Am FE 






EX, 


DODGE 
+4 
7 


PC=PC4 1 
GOTS 625 


4, Lt : 
LA] 
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924 REM---8 

934 IF FC£=1 THEH 640 

944 IF PC2L THEN PLAT PC,LI-E1," " 

954 PLOT FC-4.LI-61,MID#(LIS, PC. 15 

964 PC=PC-1 

974 GOTO 624 

1994 PREMzz=ssssesessessssses |[ECTIURE CASSETTE === 
2444 PRINT:PRIMNT "APPUYER SUR £PLAY} PUIS <RETURHÈ":GET #4 
2614 PRINT:PRINT "LECTURE CASSETTE" :PRIHT 

2824 POKE #67. 

2934 CALL 1427,L1$ 

2644 : 

2454 RETUFH 


FR 
3004 PRINT : PRIHT "APPUYER SUR FÉRECURD PUIS ÉRETURN d :GET # 
3626 PRINT PRINT "SAUVEGARDE CASSETTE" :FRIHT 


3444 POKE #67. 
3445 UAIT 264 

3954 CALL 1924,LI% 
3969 RETURN 


3114 FOR Lei TO MX 
3124 :LPRIMNT LIL) 
3134 HEAT L 
3149 RETURH 


HO € 
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COURRIER PARAMÉTRÉ 


Une lettre standard est définie en ‘DATA’, ainsi qu’une liste de destinataires. 

Le programme personnalise cette lettre pour chacun des destinataires. 

Nous lisons d’abord la lettre définie en ‘DATA’ dans une table TXT$() puis pour chaque ligne 
de la lettre, nous remplaçons les paramètres entre <> par les valeurs réelles de chacun des 
destinataires. 


TXTS$( ) 





























De me mn 
| 


Monsieur DUPONT 
12, rue xxx 
RENNES 


Cher monsieur DUPONT 


UT Eee 
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Courrier paramétré 


FEN COURF COURRIER FARAMETRE 


CIN TATSE SE 
REM---een meme mmme mme Lettre see 
DATA "LIEERT Fierre Le LERE, 
CATA "Eue de PARIS 
CATA "£ÉIl-SEFT FORGES" 
CATA "  " 
CATA " : 
CATA LL LL 
CATA " Monsieur 1%  " 
DATA"  " 
CATA " 
CATA " 
CAT LL LL 
DATA " Cher Monsieur ET eu umun eus " 
DATA sise Raseré er ee eee nine ne Ge UT ae 6 0 ae : 
CATA u 
DATA "  " 
DATA " LIBERT PF." 
DATA "  " 
DATA "  " 
CATA # 
RE vu a a ao an one Eli REGLES Er 
CATA CUPONT, TE RUE 
CATA FORTIHRLUE PSS RE 
4 DATA BETHUEL.RUE Z£ZEZ, FARIS 
334 DATA #.#.*X 
+HE REP RSS ce Lecture Lettre dans TETE 


“un 
ï 


ER] 


DR me 


Ex] 
En) 
x 





RER EX ER EE, 


pi ee UD OO y LT <a Lo Pie 9 
2 
ES 


ES, 
3 


tulle nmneeemE pe pee Lt Si UN Se bi Co fo re 
Sr © GR M: 











+ FOR Lei TO 144 
434 REC TETE LUHIF TETE L UE THEN Hiel-1 GOT SA 
dé MEET L 
AE EM cena eee eee EL À À 1 ci 
4 FOR EVei TO 18 
FOR Fsi TO S:READ FEMSCPOHERT P 
fe PENSE T EME" THEH STOF 


AE 
514 
52 
236 
54 :FÜR Lei TO HL 
ET LIGHESETETSE LE 
SÉR :  CCHSe "EM COSUE SOA: Fisr 
SÈS IF Fi THEH EGE 
sr HP=4ALE RIGHTS LIGNES , POLE ñ5 
AFS CCHS= "SI COUSUE SAAB: PE= 
Fi 
5 





LIGHESSLEFT#CLIGHES, F1 1 4+PRNTSE NP O+RTGHTSE LIGHES. LENS LIGHES à 





-PÈ 

590 : 

EG : LPRINT LIGHES 

ÉeB :HEUT LG 

648 :PRINT:PRINT "Appuyez sur RETURN "GET K4 
É5 


SE HEËT E 





7üi STOP 
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ee eee ROLE Chaine 






à FÜR P=t TO LENLIGHES)-L1 

IF MIDBCLIGHES. FL )eCCH$ THEH 3106 
EXT P 
26 
ETLIFH 





JERT Fierre LE 
JÉESE ARTE 
£Si-SEFT FORGES 


Monsieur. CLUFOMT 


12 RUE HHx 
FENHES 


Cher Monsieur DUPONT su summunnus 


LIÉERT F, 


Fue e FARIE 


LIBERT Fierre Le BEBE 
61-SEFT FORGES 


Monsieur FOETIH 


BUE 
FEMHES 


Cher Monsieur FÜORTIH sus umuummu 


LIBERT PF, 


52 PROGRAMMES | 79 


Quatrième partie 


JEUX 
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JEU DES ALLUMETTES 


Règle du jeu 

Au départ, il y a 30 allumettes. 

e Les 2 joueurs prennent des allumettes à tour de rôle. Celui qui prend la dernière perd. 
e Chaque joueur peut prendre entre une et le double des allumettes prises par le joueur 
précédent. Par exemple, sile joueur A prend 2 allumettes, le joueur B peut en prendre 1, 
2, 3 ou 4. 


RUH- 

Moulez Vous commencer t 0H 
Combient 1 L 
J'en Frends 

Il en reste: 7 

Lori ê lent y 


Nous avons défini une table BCOUP(,) où est stockée dans la 1" colonne le jeu qu'il faut à 
l'adversaire et dans les autres colonnes le nombre d’allumettes qu'il faut prendre pour gagner. 
Par exemple, s’il reste 11 allumettes, prenez en 2 afin qu’il en reste 9. 





Ce qu'il faut 
laisser 





Ce qu'il 
faut prendre 


TABLE BCOUP\ . 






S'il reste 11 allumettes. 
en prendre 2. pour 
qu'il en reste 9 
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Jeu des allumettes 


14 REM ALU JELI CES ALLUMETTES 


24 : 

34 : 

144 CATA Y1:1:4:3:4,5,6 

118 DATA Hd: losissusss 

124 DATA 96: liBissususs 

130 DATA 993, lois 

144 DATA 1Zilosseuissuus 

154 DATA 14.1,:2.53,4,5,6 

169 DATA 1Faolourssuuua 

174 DATA 1H, 

184 DATA 22:14 

138 DATA ZSilocousususs 

299 DATA EPolidissusuus 

219 : 

224 DIM ECOUPÉ13, Fa:FOR Je1 TO11:FOR Is1 TO P:READ BCOUPCJ, IH: MEAT 
J'HEAT J 

234 CEBLT=S30 

244 : 

250 CLS:PRINT " JEU CES ALLUMETTES":PRIHT 

Zé@ PRINT "AU CEPFART,IL Ÿ 4 3Q ALLUMETTES" 

265 PRINT "CHACUH FREHDC DES ALLUMETTES 

267 PRINT "ALTERHATIVEMENT, " 

269 PRINT 

279 FRINT "CELUI QUI FRENC LA CERNIERE FERD'':PRIHT 

289 PRINT "ON FEUT EH FREHDRE ENTRE 1 ET LE" 

285 PRINT "OOUËELE Dl JEU  FRECEDENT" 

294 : 

304 HRESTE=DEEUT : Hz: MCOUPS 1 :PFIHI=4 

214 PRINT:INPUT "Voulez vous commenceré CHR: IF R="0" THEN TRel 
ELSE TR=? 

324 : 

334 ON TR GOSUE 274,484 

348 IF PFIHNI=1 THEWH GOSUE 5F9:GOTO 344 

254 GOTO 334 

D6Q REM = eee JEU JOUEUR 

374 PRINT:IHPUT "Combien en Prenez vous "OS NPRISE 

284 IF HFRISE<1 THEH 374 

399 IF HPRISEZHMX THEH FRINT: PRINT HMsi" Al] PLUS'":GOTO 374 
44 IF MPRISE:HRESTE THEN FRINT:PRINT "IL H'EH RESTE QUE ":HRESTE:G 
OTO 378 

41A : 

424 IF HPRISE=HRESTE THEH PRINT :PRIHT "J'AI GAGHE ":PFIHI=1:RETURH 
434 HRESTE=HRESTE-HPRISE : HMAASHPRISEXEZ 

ad TR=E 

454 RETURH 
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mn 
Pre 


DAME DIN CERN CN CA 
re GO MN NMM 


6389 


84 


D 00% 0 00 I Un di 


REMSESRESS SRE nes JEU MACHINE 
IF HRESTES1 THEH PRIMT "J'AI PERDU :PFIMI=1:RETURM 


IF HMX=2NRESTE THEN HPRISESNRESTE-1: GOT 514 ELSE GOSUR 614 
PRIHT:FRIHT "J'EN PRENDS: ";:MPRISE 

HRESTE =HPRESTE-HPRISE : HMX=MPRISEXZ 

PRINT :PRIHT "IL EH RESTE: ":HRESTE 

IF HRESTES=1 THEH PRINT:PRINT "J'AI GAGHE":PRIHT:FPFINIs1:RETUEN 
TR=1 

RETUFH 


PRIHT:IHPUT "COMETEH C'ALLUMETTES FOUR LA PARTIE ":DEBUT 
GOTO 344 
FRENM- ue Recherche dans 1a table des bons coups 
FÜR Lei1i T0 1 STEF-1 

: FOR CeZ TO € 

IF ECOUPÉL.Cozt THEH 668 

IF ECOLIFE LL, 1 2+BCOUPEL, Co HRESTE THEH 654 

IF ECOUPÉL,CoHMX THEH 654 
HPRISESBCOUPE L. Ci: RETURN 

: HEST © 
HEAT L 
HPRTSES TL: PRINT:FRIHT "VOUS POURRIEZ GAGMER":RETUEN 
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LE COMPTE EST BON 


Nous proposons une version simplifiée du jeu ‘le compte est bon’ : 

e Nous choisissons 7 nombres aléatoires et nous effectuons des opérations aléatoires avec ces 
nombres. Puis nous affichons les 7 nombres aléatoires ainsi que le résultat calculé. 

e Ce programme ne vérifie pas si le résultat calculé par le joueur est exact. Il faudrait pour cela 
‘évaluer’ l'expression donnée par le joueur (par exemple : (25 — 3) * (5 — 2)) 


NB() 





7 nombres déjà utilisés 
aléatoires 


Les opérations générées par le programme sont seulement du type : 


+ 
Résultat = Résultat précédent | — | nombre aléatoire 
*k 
/ 
RUN 
Moici les F nombres: 


18 2 #5 3 4 SBS 


15 


Resultat atrouver: 66 
AFFuyer sur <RETURH: 


Ma solution: LÉ SS4S EE +140 


AMELIORATIONS POSSIBLES 

e N'afficher que les parenthèses strictement nécessaires, par exemple (25 + 3) * 2 + 10. 
e Pour évaluer le résultat donné par le joueur, voir le programme ‘évaluation d’une 
expression’. 
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Le compte est bon 


15 REM CPTE1 LE COMPTE EST BON MOI 

Z2 : 

64 CLS 

9Q REM= <= esse en F7 NOMBRES ALEATOIRES —- 
148 FOR H=1 TO ? 

114 : HECHo=1+IHTE HD 1 #14 5 

128 : IF HECH9219 THEH HEC H = HEC Hi-1Q4zs 
139 :HEXT H 


149 RE Hombre d' operations ca adapter à 

159 HP=3 34 TMTE RHDE 1 1430 3 6 operations 

152 

155 FOR Isi TO P:OCC IISG: MNEXT I  :RENM Hombres deja utilises 
164 : 


174 FH=INTERHNDC 147 +1 

175 IF HNEGPHO< 1 THEM RESULSHES Pi 5: OC Pa ml 
184 : 

182 R="'SFOR Ii TO HP-1:RS=RS+"C M MENT I 
185 R=RS+STREE RESUL à 

294 FOR Hal TO NPF-1 


214 OP=IMTÉRHOC 1 2#4 141 " Peration 

#15 ! 

224 : Pas 1i+IMTÉRHDE 1 TE “ Choix GPéerande 
834 : IF QCéFhoxl THEN 228 " Deja Pris 

244 : 

2569 : ON OF GÜTO 346,404, 544,6@4 

264 : 


394 : RESLULSRESUL+HNE6 Pi: OPS&eta" 
314 : GOTO F6 


AA : “=RESUL-HECFHI:IF “<1 THEH 214 
495 ' FES La : QPH=" ." 
416 : GOTO FA 


424 : 

SA@ : IF HESPricl THEN ZE 

Si : RESUL=RESULÆNEC F4 0 

524 : QPH="#" 

534 : GATO A4 

544 : 

644 : IF HE Piel THEM 214 

645 : 4=RESUL. "MEL FX 2 

614 : IF “INT A: THEH 214 

524 : RESLLEX: QPE=",/" 

649 : GOTQ 764 

654 : 

F7B4 : OCCPx = 

719 RH=RS+OPÉ+STRSE MEL Pi en 
Saû MEXT H 

214 IF RESUL<1G4 OK RESUL:499 THEM 154 


834 CLS 
849 FRINT "VOICI LES 7 HOMBRES :":PRINT 
8936 FÜR Hel TO F:PRIHT HBÉHMOS:MNEXT H:PRINT 


914 PRIHT:PRIHT "Resultat 3 trouver: "3 RESUL:PRINT 


86 | ORIC POUR TOUS 


PRINT "pour avoir ma solution faire <RETURHS" 
GET X$ 
à PRIHT:PRINT R$& 
PRINT 
PRINT "AFFUYER SUR <ENTER: "GET “%$ 
GOT 1968 
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ÉVALUATION D'EXPRESSIONS 


Etudions comment peut être réalisée l'évaluation d’une expression arithmétique. 


L'analyse d’une expression se fait de gauche à droite. Chaque opérande rencontré est mis dans 
une pile dite ‘pile des opérandes’, chaque opérateur étant lui stocké dans une ‘pile des 
opérateurs’. 


À chaque fois qu’un opérateur de puissance inférieure ou égale à celle de l'opérateur du haut 
de la pile est rencontré dans l’expression à évaluer (+ est moins puissant que *), on évalue le 
résultat de l'opération entre les deux opérandes du haut de la pile avec l'opérateur du haut de 
la pile, puis le résultat est rangé à la place des deux précédents opérandes. Enfin, l'opérateur du 
haut de la pile est supprimé. 


a%Xb+cxd fl = 
l on évalue a X b FA Es pa 


akb+cxd 





Ici, on évalue c X d 
puis (a X b) + (c X d) 


en 
# ECM 
QC 
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Lorsque l'expression à évaluer comporte des parenthèses, celles ouvrantes sont stockées 
systématiquement dans la pile des opérateurs. Considérées plus puissantes que les opérateurs, 
elles empêchent l'évaluation tant qu’une parenthèse fermante n’est pas rencontrée. Chaque 
parenthèse fermante provoque l'évaluation jusqu’à la parenthèse ouvrante correspondante. 


aX((b+c+d)k(e+f)+gxh 


| 


Ici, on évalue b + c 


aX((b+c+d)X(e+f)+g%xh 


| 


Ici, on évalue d + (b + c) 


aX((b+c+d)X(e+f)+g%Xh 


| 


Ici, on évalue e + f 


aX((b+c+d)X(e +f)+gxkh 


Ici, on évalue 


(b+c+d)Xke+f 
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Remarques : Compte tenu des temps de traitement des chaînes de caractères, ce programme 
est relativement long à exécuter. Nous n’avons considéré que les opérations d’addition et de 
multiplication, celles dont nous aurons besoin plus loin. 





Quelle expression ? 


Extraction d'un caractère 
de l'expression 


























Ranger opérande 
courant dans la pile 





L'opérateur 
lu est-il moins puissant 
que celui du haut 
de la pile ? 


Evaluation 








À À 
Placer l'opérateur 
lu dans le haut 
de la pile 
| 





Placer opérande 
courant dans la pile 









Placer ( dans 
la pile opérateur 


© Evaluer les 2 opérandes Evaluation 
du haut de la pile 


opérande avec 
l'opérateur du haut de 
la pile opérateur 





© Placer le résultat à 
la place des 2 opérandes 
évalués 





90 | oRIC POUR TOUS 


Evaluation d’expressions 


14 REM EH EYHLUHTTUN C'UME EXPRESS LUN 

24 

4f DATA LS AUS HAS TL, LPS nn, MSN nE " 1 

59 : 

64 FOR I=1i TO 6:READ PCI PETI:MEMT I 

96 #g="CB+32#18/2 2" :REM Remplacer Par INPUT 4% 
144 


128 RT=1:RD=1 
139 CUR=1 





144 : 

15Q DEF=<CLUR 

164 : 

174 YH=MIDSE #48, CUR!, 1 " éicaractere anal4se 

154 : 

128 IF Y$="" THEN Yéz"i": COSUE SA: PRINT PRINT "RESULTAT: "RAC TUE 
TOF 

240 IF “$é="+" THEH GOSUE 264: CUR=eCUR+1L: GOTO 154 

205 IF “$="-" THEH GOSUE 284:C } : GOTO 154 

218 IF Y$="#" THEM GOSUE 284: CUR= CUF+1 : GOT 154 

21S IF Y$="" THEN GOSUE 284: CUR=CUR«#1: GOTO 154 

220 IF v$="u" THEN GÜSUB GS: RTSRT- 1: CURSCUR+T : GOT 154 





220 IF Y$="c" THEN RTSCRT ev$:RTeRT+1 : CURSCUR+1 :GOTO 154 
248 CUR=CUR+1 

254 GOTO 178 

2EQ REM--—— nn PLUS -MULT 

280 COSUB 445 

281 

282 XXS=V$: GOSUE 200:P1=P 

284 IF RT:1 THEH XHSS=RTSRT-1 2: GOSUE SA@:P2=P 

299 IF RT>1 AND Fi=PZ THEN GOSUE SRG:RT=RT-] GOTO 282 
295 : 

348 RTÉCRT =: RTERT+1 

318 RETURH 


Z2Q REM---—— PARENTHESE FERMANTE —- 
334 GOSUE 44 
331 


332 HAS=YS. GOSUE SG4:PF1=F 

334 HA=RTSERT-12: GOSUE SG: PFZEP 

348 1F RT:1 AND P1=tFPZ THEN GOSUR SEA: RTERT-1:GOTO HSE 

354 RETURH 

SÉÛ:REMSSsréSSs sniper ns EVALUATION 

384 FOR I=1 TO RT-L:LPRINT RT$C I: :MEXAT TI 

398 LPRINT TABCZS 3: FÜR I=1 TO RD-1:LFRINT RAI: :NEXT L'LPFRINT 

44Q IF RTSRT-1 = "4" THEN RACRD-S SRAE RD-1 2#4RAC Ré: RDsRD- 1: RETURH 
495 IF RT$CRT-1 1e" THEN RACRD-E eRAC RD -E RAC RD-1 1: RGSRD- 1: RETURH 
414 IF FT#CRT- Fonte THEN RACRD-S = AC RD-1 +R AC RD-E 1: RDÜSRD-1 :RETURH 
415 IF RTSCRT-11S"-" THEN RACRD-S SRAE RD-E 3-RAE RD -1 5: RDSRD- 1: RETURH 
429 REM------ee ee AJOUT PILE OFERANDE ---- 

444 CH$S=MIC# #6, DEP, CLIR-DEP 2 

454 IF CH$="" THEH RETUEH 

464 RAC RD = VALE CHE 

478 RD=RD+1 

486 RETUFH 
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F0 'REMR=--eS ses POIDS OPERATELIR ---- 
806 FOR I=i TO 6 

810 :IF ##$=P$C I) THEH P=PCIO:RETURH 
824 HEXT I 

534 P=8:RETURH 


o + 8 3 
* 11 12 
# 132 4 
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BE-MOT EE-PEUS: LONG 


Nous présentons ici une version simplifiée du jeu ‘le mot le plus long. 
Dans chaque ligne de ‘DATA’ sont définis : 

e Le mot le plus long; 

e Des lettres complémentaires (9 —— longueur du mot le plus long); 

e Les autres mots possibles. 


Autres mots 





possibles 


CATA PECALES, TO, FETALES, FECALOS, 4 
& Lettres 


Nous affichons les lettres du mot dans le désordre puis nous attendons pendant 30 secondes le 
résultat du joueur. Si la réponse n’est pas bonne, nous affichons la (ou les) solution(s). 


Affichage double 
hauteur fond jaune 










A DEPLSETO 
Votre solution : PEDALESy 


ok 
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Le mot le plus long 


18 KR 


28 I 
3 N 
34 C 
4a D 
58 D 
68 D 
Fq D 
64 D 
36 D 


124 
134 
148 
158 
838 
344 
314 
1466 
1814 
1815 


1428 : 


1939 
1645 


EN MOT MOT LE PLUS LONG 

WMK1 

M=15 :REM HNOMERE CE LIGHES 
ATA FICHIERS. M, # 


ATA PEDALES, TO, FETALES, PECALOS . # 
ATA ARMOIRES, 1,4 

ATA MOQUETTE, 4, MAGLIETTE . # 

ATA FAUTEUIL.%.:%# 

ATA ELIREALI, GIZ, # 

ATA CASSETTE. C.*# 


A CATA RIDEALE4, HW, # 


CATA ARCOISE, FO, FROIDES. *# 

CATA TABLEAL, EC, # 

DATA CHAMBRE , AU, CHAMEALI. # 

DATA CLAVIER. GZX,# 

DATA CHEVELL, AR, CHALEUR, CHALILER:, # 


RESTORE 
FOR Tai TO S:FCTOISGMEXT I 
A=RHD6 1 2#HN 

FOR I=1 TO # 

:IF #<û THEH 1%4f 
READ #4 

: READ X$:IF HSM" THEN 1454 
HEXT I 


1954 : 


1149 
1145 
111 
daun 
1115 
1116 
1117 
1120 


1138 : 
1144 : 


1154 
1164 
1165 
1174 
1248 
1218 
1211 
1212 
1213 


READ MOTS 

FREAC Cé:MPS=MOTS+CS 

REM--- emmener me Affichage lettres double hauteur fond 
E 

CLS :PRINT:PRIHT:PRINT:PRINT " "3: CHRSC à 3 CHRSE 27 93"; 

PRIHT " MiCHRSC ZT ONE; 


PRIHT CHR$c 273;"@"; 

FOR Izi TA 3 

Pai+RHDé 1149 

IF FéFie@ THEN PRINT MID#CMPFS,P.lui" "i:FéPüzi ELSE 1134 
HEXT I 

PRINT CHR$cE7 "M"; 

PRIHT CHERS à: " Fin double hauteur 


PRIHT:PRIHT: PRINT 


PLOT 5 :1@; "VOTRE SOLUTIOH:" 

S$= un 

REM Attente reponse me 
T=ÿ " Chroana 


1214 : 


1215 
1216 
Q 12 


HS=KEYS: IF K$<>"" THEN 1226 
IST IF T>S64 THEN 1294 ELSE FLOT 4,23, STRSCINTÉT/24 2): GOT 
eu 


1217 : 
1218 : 


94 
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1213 
1228 
1221 
1222 
1223 
1224 
1885 
1226 
1227 
1228 
1223 
1234 
1234 
1225 


1236 


RARE] 


= 
A] 


DR SUB Fo 


REM----—-— Saisie rePonse 
Sex $: FLOT ZA+LENSSS$ 5, 15,4 


ABSKEYS:IF #$="" THEN 182€ 

IF ASCCAGI=13 THEN 1234 

IF ASCCAGIL + 1Er THEN 122€ 

S=LEFT#CS$, LEHE S$ 1-1 0: PLOT ZA+LENC ES 41,10," ":GOTO 1222 
S=Sé+s$ : PLOT SG+LENCES 1, 14, %#$ 

GOTQ 122€ 


IF MOTÉ=S$ THEH FLOT 24,24, "0H... "M: MAIT 544: GOT 344 


FOR 1=1 TO 4 

:REAC ASCIT:IF AGCTI="E" THEH 12564 

CIF ASSISES THEH PLOT 24,26, "Û0k., M: HNAIT S64:G 
HEXT I 


D 

3 
_ 
D 
Len 
2 


#$="MA SOLUTION: "4+MOITS 

PLOT 14,24:%% 

FOR I=i TO 4 

5 IF ASIISUE" THEN 148 
AB=ASCT I FLOT LE, 2447. AGIT 

HEXT I 


LAIT 3% 


(al 
SÛTO SA 


ai 
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BIORYTHME 


Il existerait chez l'homme des périodes ‘positives’ et des périodes ‘négatives’ réglées par des 
‘horloges internes’ indépendantes de l’environnement extérieur. 


— Positi 
_— 







23 jours 28 jours 33 jours 


K / 
Se 4 Négatif 









Jour de 
naissance 


Cycle physique 





Cycle émotionnel 





Cycle intellectuel 


Il V aurait trois types de cycles : 

e Cycle physique de 23 jours; 

e Cycle émotionnel de 28 jours; 

e Cycle intellectuel de 33 jours. 

On pourrait ainsi connaître à l'avance les jours favorables et défavorables. 


Pour afficher une ligne, nous stockons dans une table tampon LIGNES$(), les caractères à 
afficher. 


LIGNES (31) 





Affichage à l'écran : 
Physique 





Emotionnel ut 


1 / 8 15 22 29 








intellectuel — 
ee N _— — 
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Biorythme 


4 REM ETOF ELORYTHNE Céctan ou imprimante 
uit LIGHESRE GAL M MOISHE LE, PE LE 





1 FOF I= : TO LE: READ MOTS HEAT I 





[e] 

[ei 

A 

G GATA JAH, FEV MARS, AVRIL, MAT, ILITH JLITLLET, AOÛT, SEPT. OCT. HO, DEC 
Er “+ H 

H DATA : #1 31 41: 

AE FOR Fes 1 “TO 12: READ JM I HEXT I 

1 


ï CP=23: CE=SS: CTRS “Physique Emotionngl-Lnbelléectuest 


CLS :PRINT CECI OR TT H M E':FEIHT 

INPUT PYOTRE HOM "HOME 

145 PRINT: PRINT HATESSANCE OO FRINT 

154 IHEUT "JOUR, MOIS, ANNEE "IH, MH AH 
5 AM LSGE THEM 156 

F 1H: He AN: GOBUE LS ue 

16€ GOSUE SA 











16 PRINT: PRINT METORSTHME "PRINT 
IHPFUT " AREAS MERE US AE LEGS THEH 1 

RER “  :REM nb dé jours vecus 
Pour HNERER 







FFT PETORYTME ":LFRINT 
LPRINT HOMS:" "io He Le Mi JRS JG "OM Mie" MN"; Ai 
4 LFRINT "OO CG HIOURA" jours A'OLPETHT 






A4 FOR Is1l TO SA: LIGHEGE THE" MEHEËT I 

5 LPRINT:LPETHT MOTESC ME "OMS AE: LPRIHT 

F LFRIHT " megat if Pis i tif LPRINT 
A Eee 

24 FOR Del TO IMOME 

a 














a 
LA] 
Zi 
res 
& 
+ 
4 
—— 
= 
— 


‘1 *STNCCKHUR CL 415 
ge PA stp: LIGHESC PE de 2" LIGNES PDe"i" 
THEH LIGHES( F1 





ep c FE 
CIF FisFS THEN LIGHEC FI 


LPRIHT Di TAEL 16 

FOR sel TO SI ELPRINT LIGHESE GS 0 HET 
LIGHESRE PA EM OC LT GHEMRC PE Ge OU LTOME 
‘Es +1 

HEST LC 

PRTHT 

MERE LE ‘IF MEL THEH MEzi: AESME+ 1 






LPFIHT 


de Ge D mm E 
RG MR mi 


at 





Le 
pes 
ni ii 


REC 


1 
1 
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eee CALENDRIER PTT 
M 

44, QU] 5: Mb 1 SEM: A f-M 

RC 1 45 1 184, A1 + INTÉ 365. 2546 A+d4712 +, 901 à 

Be LEE + THE A dE 5 










M=J4IHT 
Je THTC A 
FETLIEH 
RE JOUR DE LA SEMAINE mme 
 REM JW 3; JS 


AS D A 


ERRESS 









Um À 
= 


IUT rime een 
Ver Duras 


&B BE BR PS TI PS 
DOLUIDE 


JR ES 1e MEMORECT RE 7e EAMELT" 





ei 
D 


JE ee, GA +1 





FN 
Lex 


semsssosmosmsesmmmssomse ÉCRAN sense 

IRSET 4,64, 3:FILL 64, 1.6:FILL 68,1,F:FILL 641,1 
CURE ET 9,34, 1:DRAM ÉELECE 
CURSET 4. ee 3 
4344 CURSETA, 156 
4954 CT$=" 1 5 15 Le Es" 

4364 CURSET 141,3 

4376 FOR Iei TO LEHÉCTS 5: H=ASCCMIDSE DITS, I, 150: CHAR 6, L'CURMOY 7,6 





DR RLTELR EX 





Ex] 





4983 HEXT I 

4984 MS$="Physique" kde: Msif: GÜSUE 4431 
4985 MS$="Emotionnel":#4Me2@: (Mer :GOSUE 4391 
4986 MSg="Intellect "Meg: "MS=154:GCÛSUE 4491 
4987 GOTO 5664 


4991 CURSET #1, 23 

4992 FÜR I=1 TO LEHCMSS 

4993 :x=ASCCMIDSE MES, I, 112: CHAR K,4, 1: CURMOY 6,6,5 
4994 HEXT I 

4995 RETURH 

2448 FÜR Dei TO JIMME 3 

US Vo ue LHC € K4NJOUR 2 EXP I<CP 


LE Là 


#F ; 
#5 LHC € K+HJOUR à ESXP ICI à 
: PH 
| CURE ET #30 Pie L1'DRAU 4,64,1 
-CURSET X,30@-P2, 1:DRAM 4,6, 1 
: CURSET 1 180-F3 1: DRAU 4.4.1 
3 :KHekK+1 
HEAT LC 
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E I 


î 


GIBET 


AQUT 19 


DLD-IMNMBSiror 


pe pe 
= 


Le] 


15 


F 


ren 
EE 


15 


16 
17 
18 


13 


£z 


me LD Où JM Life 


F: 


ble 





THE 
le JEUDI 


négatif 


13 


# 


=. it 
Fe 


F 
F 


Hs 


F 


Lit] 


F 


HI 


negatit 


F' & : 
F1 


1 


æm 


15 12 1945 


C13r45 


Positif 


ë 
ge 
ge 
Es 
ge 
F & 


F E 


=D 
LL 

La] 
Es 


positif 
i 


PF & 


Jus 
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JEU DE MARIENBAD 


Règle du jeu 
Quatre rangées contiennent 7, 5, 3, 1 allumettes. Chaque joueur doit prendre à tour de rôle des 
allumettes dans une seule rangée à la fois. Celui qui prend la dernière perd. 


[ll 
Ll 
, ll 
| 


Un algorithme donne le nombre d’allumettes à prendre pour laisser un jeu perdant à 
l'adversaire. 

e On convertit en binaire le nombre d’allumettes de chaque ligne (dans une table BN(,)). 
e On effectue la somme de chaque colonne de la table BN(,). 





7 


BN (CL.C) 





(RAR 
HET 


A Tous ces chiffres 
doivent être pairs 


© Pour laisser un jeu perdant à l'adversaire, il suffit que les chiffres de toutes les colonnes de 
SM() soient pairs. 
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Jeu de Marienbad 


169 REM MAR JEU CE MARIEHNERD 
za 


20 REM——— Jeu deFart 
194 JEU 1 =: JEU es 
= =] 


114 JEU 3 û=3: JEU 4 à 
144 : 

158 GOSUE 4444 

LEP REM=—me ne nee men ne 

165 PRINT 

174 INPUT MVonlez vous commencer LCL RS 


175 JRSQ:IF R$="Q" THEH IR] 


176 : 
177 FP=û 
178 : 


189 IF JIF=1 THEH GOSUE 20f:.JR=1-.IF 
185 IF FP=1i THEH 196 

196 IF JJF=4 THEH GOSUE 3 
192 IF FF=1 THEN 144 

135 GOTO 184 


— 
EX] 


14: Re 1 -.IF 


216 PRINT: INPUT "QUELLE LIGHE "il 
224 INPUT "COMEIEH ";H 


35 IF H:JEUCLY THEN PRINT:PRINT "VOUS TRICHEZ":PRINT:GOTO 216 
248 JELE Le JEUE L et 


264 GOSUE 4946 " Affichage 
5 GOSUE 5944 "Fin dé Fartie 
F IF Sel THEH PRINT "VOUS AVES GAGMNE":FPF= 1 
A RETLUREH 


sesessesemememesesmassssssmssmammsss MACHINE sasemssmisumumzs 


mr 
na 
m 


: #eJEU Lo GOSUE 1484 
HET L 


RE Héecherehe el Ga meneur nine see use ve me me on ve me 
FÜR Lel TO d L'AMEE 
FOR Hal TO JELE Lo “ Ün essaie d'en Prendre 1 4 JELÉL 3 
IF JEUCL'EeS THEN SFA 

#4 JEU L 5-H: GOSUE 148% 

GOSUE 2446 " Sommation Colonnes 

IF GHei THEH GOTO 654 
MEST H 

ose JEUE Li: GOSUE 1446 " Metabhlissement de la liGnée binaire 
HET L 





UJRALDU TOR s DYy ONE SH INT 


DUO OD AB 


CR CA CN A CN CA CS CR OR BB co co Co PQ Po Fa Pol 
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as de solution Gagnante eee 





SOTT ESA 


=Q AND EMCEeg AND HeJEUCL) THEH HeJEUCL 5-1 


4 THEH HsJELE Li 
THEH He JEU Lit 


à AND Shi 
AH Si 








à FÉIHT:FEIMT "JE JOUE: LIGHE: "ail: "UC EH FREHDE : "Hi 


JELE Le EL L 1-tl 





rat BÜSUE EE 


-4ù C GÜSUE SAGE 
ï THEH FEIHT:PEINT MUEAT GAGHE' PRINT :FFa 1 





45 IF 
F5 RETURH 
DAE FEW C4 BIHAIRE 


HSE 
1448 KENM ENTREE : LL 
14 FE SORTIE: REMPLIT EL, 


1424 FOR F=£ TO 6 STEP-1 






1448 : EBHIL.FasIH SF, A1 


1484 2 Amex -EMEL, FCKE ER 

1964 HEXAT F 

1975 FETURH 

1990 REM--- ee GOIMMIAT LCI eo a a on 
za a C=£ TO A STEF-1 

2095 3=9 

2814 : FOR Li=1i TO à 

2924 : SeS+EHCLIi.Ci 


14 





CC. 
Apt EXT LE 


1 GH=@ 
214 FÜR Cez TO à STEF-1 
2118 : IF INTESME CMS UNE RE 
sich HEËT C 
2128 GHzl 
£14û FETLEH 
DEA REM ee mme GESSTH 
AA FRIHT 
14 FÜR Lel TO à 
12 PRINT Li" ": 
FOR Hal TO JEUEL 
IF JEU Lien THEH dt 
FEIHT "TI"; 
HET H 
FEIT 





MCCIE THEN GHEl: RETLEM 






& = ei 
CRE RARE ELA ELU ELA 


mme FIH DE PARTIE 
SG FOR Lel TO diSeS+JEUCLO HET L:RETURH 
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JEU DE MARIENBAD 
PAR APPRENTISSAGE 


Nous proposons le jeu de Marienbad. Mais cette fois-ci, la machine apprend à jouer en 
‘imitant son adversaire. 

Pour la première partie, la machine prend une allumette dans une rangée quelconque. 
Dans 2 tables J() et P() sont stockés tous les jeux de la partie. 






LUI( ) J{ ) 





On prend 1 
dans la rangée 





Jeu en cours  Allumettes prises 


À la fin de la partie nous cumulons les jeux de la partie achevée dans 3 tables. 





Récapitulatif des  Allumettes prises Gains 
jeux 


Dans une table des gains G{), nous faisons +1 si la partie a été gagnée et —1 si elle a été 
perdue. Ainsi, pour les jeux suivants, la machine consulte ces tables pour chercher des 
configurations gagnantes. 


Au fur et à mesure des parties, la machine dispose de plus en plus de configurations gagnantes. 
Elle doit jouer de mieux en mieux, surtout si son adversaire joue bien. 

Pour tester le programme, laissez-le commencer la partie la première fois et gagnez la partie. 
Commencez la seconde partie (comme lui) et il jouera comme vous aviez joué lors de la 
première partie et gagnera lui aussi. 
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Autre méthode : 


La table des jeux peut être organisée différemment : 

e On stocke le jeu à fournir à l’adversaire (et non le jeu actuel). 

e On recherche alors. par essais successifs, le nombre d’allumettes à enlever pour parvenir 
au jeu cherché. 

e Cette méthode est plus puissante que la précédente mais plus compliquée à programmer. 


Supprimer : 


TJ( ) 





Jeu à fournir 
à l'adversaire 


237 GOSUB 6000 : GOSUB 6140 


Ajouter : 245 GOSUB 6000 : GOSUB 6140 


Les instructions 290 à 589 deviennent : 





FÉlrsasessesesesesesesesenmesenmesesenmes [MMCMINE xx 


MCOUF = 
REM- meme mnc sm. Recherche table des jeux 
IF T1:=g THEH H=l:GOTO 69% 
FOR Lisi TO 4 
FOR His1 TO JELELI5 
5 SJeJELE LI 
JEUS L1 = JEU LI 5-H1:GOSUE 69 
FOR I=i TO 298 
IF Tli=ä THEH 475 
IF JCÛ TJSIS THEH 4684 
‘IF GI MCOUF THEH MCOUP&GCT 1: HJEeHI:FLeL 1 
HET I 
JEUE LI 15 
:HEAT H1 
HET Li 





Er) 


1F: MCOLP=E THEH Hel: GOT 64 


545 LeFL He 


266 


DT UN CR On GA CN 


CG CG CG Où Où 0 00 O1 
DJ M 1 B D Fou 


PRINT: FRINT "J'EN PRENDS:";H;" LIGNE: ";L 
JEU L ie JEUS Let} 
GOSUE 6GG@:GOSUE 6148 


GOSUE 4445 
GÜSUE SG 
IF S=1 THEH FRIHT :FEIHT "J'AI GAGHEM: PRINT: Gel: FPFæel 
RETLFH 
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Jeu par apprentissage — Marienbad 


F4 REM AFPR  IEL PAR APPRENTISSAGE -MARTEMEAC — 








16 

2e DIM TE EE 0, AP AE, GE SO 1, BP 3640 LTÉE 34 
25 CLS 

34 :FEM--- Jeu defart 


AG JEU 1 2=7: JEU 2 es 
114 JELN 1e : JEUX d =1 





154 GOSUE AGE 

LE REMeesse nee eee 

165 FRIHT 

174 INPUT M'éonlexz vous commencer € OH ip 
FE JReG:IF Fé&e"Q" THEN IRel 


176 : 

77 FP=@:COUP=H 

176 : 

184 IF JF=1 THEH GÜÛSUE 244: Reel. 

185 IF FPF#i THEH GOSUE F@gg:GOTO 144 

194 IF JF=@ THEH GOSUE Li ip 1 

192 IF FF=i THEH GOSUE FGg@:GOTO 146% 

195 GOT 184 

200 FREllazssssseseseseseseseseseemenmazmmsasms,s  MOIELUR amememes 
214 PRIHT:IHPIIT "GUELLE LIGHE "il 


22 INPUT "COMBIEH Mit 


235 IF H2JELCLS THEH FRINT:PRIHT VOUS TRICHEZ":PEINT:GOTO 216 
237 GDS UE 6448: GOSUE 614 


240 JEUX L 3= JEUX LH 


264 GOSUE 4436 

263 GOSUE SAaG 

267 IF £=1 THEH PRINT "VOUS AVEZ GAGHE":FPel Get 

279 RETURH 

294 FEMeszsssssesesesseseesesescscenmmesous MMCHINE œssizs 


318 GOSUE 6494 RENM conversion ei jeu code 
328 JAC=.ICOC FRENM Ex: JICODe FES] 


464 MCQLUF=4 

AIG REMS esse Some Recherche table des jeux 
426 FOR I=1 T0 £AA 

425 IF TIos4 THEM 54 

434 :IF . TT THEH SG 

448 :IF GI)>MCOUF THEH MCOUF=GC I »:PCOUP=I 

SGA HEXT I 





S28 IF MCOUFSY THEN Hel:GOTO 664 
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REMS=SsesSsEsnss decodage: G1 --% 5 et 1 
HLe THTE APC PCOUR 2164 3: He PCOLUR -HL# 14 


542 FÜR I=1 TO 4 






4 
5 
Ë 
ri 
= 
FA 
fi 
fi 
f 
ñ 
fi 
A 
F 
EC 


“ 
G 
AE 
(si 
ë 


DS DD UN BR Lo Fu QU 0 Où 0 © D EE 


m mi 


B£Ue MPMDNMEAUNNEREN NEA 


442 
42 
4m 
464 
4454 
4066 
4574 
4994 


5984 


3065 
5014 
3924 
5034 
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'IF HLSJEUCT a THEH LeT:GOTO 564 

HEAT T 

STOF 

GOSUE 5665: GÛSUE 6144 

PRINT: PRINT LIEN PREND Hi LIGHE ML 


LHJELÉ Lys JEUE Let 


GOSUE 446 
GOSUE 44 


IF Sel THEH FEIHT :FEIHT "J'AI GAGHE' PRINT: Gel:FF=1 


RETLURH 

PEN... PAS DE SOLUTION EH TABLE 
H1=f 

FÜR Izi TO 4 

IF JEU TSH THEM HisJEUCT :LeT 
HET IT 


GOTO 566 


RENM seen eme eeeese DIEGET H 
FRTHT 
FÜR Lei TO 4 
PRINT Lino!" 
‘FÜR Wei TO JEU L 3 
IF JELUCL eg THEH 445 
PRINT MI": 
HE#T H 
PRIHT 
HEAT L 
RETUFH 
RÉMsesesssssness FIH CE PARTIES 


:S=6+JEU Li 
HEAT L 
RETUFH 


POUR TOUS 


REM- CONVERSTON JEU es JEU CODE 
FOR I=1 TO dix Ts JEU TA: HEMT I 


1v=@ 
FOR I=i TO 3 
CIF ACTA MEHCT I THEM Ha T ET me T4 ok Tél es IVe] 
MEXT I 
IF IV=1 THEH 64584 


JCOD=E 
FOR I=1 TO 4 
: JCQD= ICO SHC T SHLANE T1 


A MEXT I 
3 RETURH 


ie GO DOG 
Se DD BE 0 Pie Lip 0 
DO RS QUNS SOA E 


I SN NN NT M 


REM--——— MAJ TABLE JEU ACTUEL 
COUP=COUP+ 1 : JC COUP 2=JCOD 

PC COUR >=JEUC L >#19+N 

LUTE COUP dE 

RETURH 

RES etes MAJ FIN DE PARTIE 


FOR I=1 6 COLIF 
CLS SR ÉUSS D 
FOR Jet TO 1 AGE 
IF TE Jie@ THEN TE Je APE Je 
IF #=TIé Ji THEN IF APE Je" THEH 748 
HEXT 


IF LUTÉIuel THEH Gi JieGe Jen 
IF LUI Tosf THEM Gé JieGe Ji 


HEXT I 
RETURH 
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LE‘: JEU: DE: ELA: VIE 


CONWAY a imaginé le ‘jeu de la vie’. Des cellules se reproduisent ou meurent en fonction 
de leur juxtaposition. 
Les règles sont les suivantes : 


e Chaque point entouré par 3 cellules donne lieu à une naissance. 
e Chaque cellule entourée de 4 cellules où plus meure (étouffement). 
e Chaque cellule entourée par moins de 2 cellules meure (isolement). 


Naissance 





Ce point est 
entouré par 
3 cellules 


=, un Ce d 


Ce point est entouré 
par 4 cellules 
ou plus 


Fer 
Do 1 I 
= = 
—> = 
rare Sa) 
INA TRE 
Laser) 


Génération O Génération 1 Génération 2 
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Première méthode : 


Nous appliquons directement le principe énoncé : Pour chaque point, nous considérons les 
points voisins. Nous positionnons à 1 les éléments d’une table V(X,Y) lorsqu'il y a naissance 
puis nous affichons le contenu de la table. 





TABLE V (X. Y) 
RUN 
Hombre de cellules? + 
Coordonnées 34% 14.1 B> 
1ä.11 











14,1% 
14.13 


Génération N + 1 


Génération N 


Deuxième méthode («après revue Byte) : 


La première méthode présentée est très lente puisque pour chaque point, nous explorons 
systématiquement ses 8 points voisins. Sachant que seuls les points allumés peuvent provoquer 
une naissance ou une mort dans leur voisinage, nous procédons ainsi : 

e Pour chaque point allumé, nous augmentons de 1 les 8 points voisins. 


TABLE V (X, Y) 





e Nous explorons la table V(X,Y) et nous allumons tous les points totalisant 3 (naissance). 
Nous éteignons tous les points supérieurs à 4. 


Troisième méthode : 


De façon à ne s'intéresser qu'aux points allumés, nous ajoutons 2 tables XX() et YY{() 
“pointant” vers les cellules en vie. Ainsi le temps de traitement est notablement réduit. Il est 
indépendant de la dimension de la table V(X,Y) 





Pointeurs 
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VOICI UN EXEMPLE D’EXECUTION : 


Combien de cellules? & 

CourdoneesT 14,14 d4 
11,18 # 
12,19 
13,18 
14,1@ 
15,10 
16.18 
171184 





18 cellules 


8 cellules 


inération 0 ser 
Génération Génération 1 





Génération 2 


À la 48° génération, nous obtenons une combinaison stable. 
En travaillant en haute résolution, le territoire devient beaucoup plus important. 
Jl suffit de remplacer : LORES par HIRES 

PLOT X,Y,16 par CURSET X,Y,0 

PLOT X,Y,10 par CURSET X,Y,1 

SCRN (X,Y) par POINT (X,Y)=-—1 











EUR 
Hombre de cellules? 15 
7 
Coordonnées %x,:47 44,34 
49,31 + 
ET SE 
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Jeu de la vie n° 1 


19 REM VIEÏ JEU DE LA VIE HA 


34 CLS 
:REM limites territoire 






DIN MÉMe a 


IHPUT "Combien de cellules "MiHT 
PRIHT 
FOR Hzi TO HC 

: INPUT MCOCRODONHEES #4 "ia 
BURN LS 

MEAT H 

GOSUE Sax 


“ei TO TE 
FOR #enl TO KE 





M ie: TV=f 


Don RCE ER ELA NRA EN ELA EX] 
- T1 
=] 
A 


: FOR Cÿse-1 TO 1 REM & Points voisins 
218 : FOR Dé=-1 TO 1 

2e6 : IF Dé=@ THEH IF DCY=G THEH Z4f 

234 : IF SCRNE K+DE, +0 1e18 THEH TYETY#+1 

244 : HEAT Dix 
254 : MEXT CY 







269 : IF TV=3d THEN VCX,.Y)=@:COTO 200 
2 IF TV=2 THEN Vi Viel:GOTO 200 

2 IF TV=2 OR TV=3 THEH IF SCRHONYe18 THEN VC Vel 
309 :MEXT % 


HEXT 


GN=GN+1 :REM Mo generation 
GOSUE 50 
GOTO 156 


: IF 
HEXT 
HEXT 





#$=" GENERATION: "+STRSE GH 
PLOT 25.,20,48 
RETUFH 


ODDQDIJUABU Ie UNE £ D me DD 
SOON NDDONGAUAREZ 


D ON CN CN CA CA CA CN CN CA 0 Co Ca 9 CO Co Gi 
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Jeu de la 


112 


124 
119 
124 
124 
125 
129 
149 
159 
168 


179 : 
188 : 


vie n° 2 
REM VIEZ JEU DE LA VIE  NO2 


:REM limites territoire 


INPUT "Combien de cellules "iHC 
FRIHT 
FOR Hei TO WC 

:IHPUT "Coordonnees 4,4 "ini 
DATE LE 

HET H 

LOFESG 

GOSUB 548 


FOR Y="1 TO “2 
FÜR #e#l TO #2 


IF SCRHC#,"23<218 THEH 398 


199 : 


208 


218 : 
228 : 
230 : 
249 : 
258 : 


290 
300 
310 
320 
336 
340 
345 
359 
590 


: FOR DY=-1 TO 1 ‘REM & Points voisins 


FOR DX=-1 TO 1 
IF DX=8 THEN IF DY=0 THEN 249 
VC HEDH à VADY DEC HD VEUT +1 
HEXT DH 
NEXT DY 
:MEXT X 
NEXT 
GN=GH4 1 
GOSUB 508 
GOTO 156 
REMSmsiaiSeues HÉPICHÉÉE nn 


510 : 


528 
339 
548 


9345 : 


994 


555 : 


FOR Y=Y1 TO YZ 

‘FOR X=x1 TO #2 

IF Vik,3<2 THEN PLOT #,%,:16:GQTQ 5684 
‘IF WOK, 9x3 THEN PLOT #,%,16: GOTOS6A 
IF WCx,%oæi4 THEN PLOT %,%,16 


399 : 


368 : 


163 
976 
580 
594 
608 
619 


VC, Ye 0 

HEXT X 

HEXT 
#$="GENERAT IOH : "4STRSC GN 


PLOT 25,20,x% 
RETURN 


ORIC POUR TOUS 


Jeu de la vie n° 3 


REM JEU GE LA VIE HO 3 


DIM K46995, "rc 935 
DIM #14993,#1€995 
CLS 

HISZ: A2= SA 
Vis2:T2225 

DIM VÉXZ+1,"2+10 


INPUT "COMBIEH LE CELLULES ":HC 
PRINT 
FOR H=1 TO HC 

: INPUT "COORDONNEES #,% "ia 
DUR PL 

PUISE CENS ANR ESS 

MEXT H 

LORES 

GOSUE 546 

REM-- 


FOR Hi TO HC 
Lam Me TON 


FOR DY=-1 TO 1 
IF 401 OR Y+D73:%2 THEN 258 
FOR Cx=-1 TO 1 
IF H+DkCHl OR K+D42KZ THEN Z48 


239 : ME RDA D EME + DK + D 4 1 


HEXT Ci 
HET Ov 


MEXT H 


GH=GN+1 


1 GOSUE 506 


GOTO 154 
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519 

515 Ni=8 

Sea 

534 FOR Wz1l TO HC 

244 Ame M0: Ye YEN 

541 :FOR DYa=-1 TO 1:FOR Dés-1 TO 1 

4e : AmAA+D4 re +0" 

343 : IF VC, 3=0 THEH 63 

545 : IF Wix,VYicez THEM PLOT K,%,16: GOT 565 
554 :1F VER, Ÿ2=3 THEN PLOT #,%,18:G0T0 564 
535 : IF Vé4,Y9=25 THEM PLOT #,%,16:G0TG Res 
598 :IF SCRHCA,Y3=18 THEN IF VCK, xd THEH 5684 
594 : GOTO 56 

368 : 

S62 :MISMI+I MIE MI ee LC NI er 

564 : 

565 : WMo4, 12e 

567 :HEXT DKHE#T Dr 

572 HEXT H 

284 : 

98 NCæti1 

9S67 FOR H=1 TO MC: YE Mie ICHI xx ES A HEATH 
396 *$="GEMERATIOH : "+STRGC GHOIHET 

608 PLOT 25,24,4$ 

619 RETURH 
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Jeu de la vie haute résolution 


14 KEM VIE4 JEU DE LA VIE HAUTE RESOLUTIOH 


25 CIM #461281," YC1240 
26 Din #161291%,%101240 


34 CLS 





44 H1=2 :H2=70 
Sÿ Vi=2 :Y2=70 

ER DIM WéKZ41, 241 2 
76 : 


84 INPUT "COMBIEH CE CELLULES "ic 
83 PRIHT 

29 FOR Hzi TO NC 

19G :IHPUT "COCRDOMHEES %,% "34% 
118 V6. Vues 
112 HHCM ok NON ET 
124 MEXT H 

124 HIRES:INKÉ 

125 GOSUB 599 





129 REM------ 
149 : 
159 FOR H=1 TO HC 

© 160 :H=MXCN D er C ND 
17@ : 


208 : FOR DyY=-1 TO 1 
285 : IF Y+DY<Y1 OR +0? "2z THEN 254 
218 : FOR Dx=-1 TO 1 


213 : IF #+D4<#41 OR #+D4242 THEN Z4f% 
228 : 

238 : MAD, +0 EVE AAC D 4 1 
248 : MEXT Dx 

254 : HMEXT DY 

296 : 

300 NEXT H 

316 : 


330 GN=GH+1 

348 GOSUE 54% 

342 :REM--- GOSUEB 639 Pour edition imprimante 
345 GOTO 154 

350 : 
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Don QnEn in 


DIJNUECQNN = BLNMDQDÉEIMNMMAMEN CAC 


DRODDSOGD SOS IJUONS JUNE FADLEDRI 


mn a DONNE M'DUMNANANNE 
&e 


LI 
D! 
in 


44 


Ni=@ 


A FOR H=i TO HC 


As M ee Hi 
FOR DYa-1 TO L:FOR Diée-1 TI 1 
AE GE + D 
l A THEH 563 
£ THEN CURSET 4,7% 







Le 


IF VX. Y5=25 THEH CURSET : 
GOT 565 


MASMI HT HT MT ee LE HI re" 





HC=H1 
FOR Mai TO HEC He TO MO RC MH Om TC HO: HEATH 


RETURH 


FOR Lzifä TO 4g 
:FOR C=15 TO 64 
IF POINHTEC,Liz-1 THEH LFFINT 
LPRIMT "M": 
: HEËT C 
:LPRIHT 
MEXT L 





PRIHT “GEHERAT LOH : "iGHi" CELLULES 


: GOT 


"gti :G 


LPRIMT:LPRIHT MGEHE : "à GH:LPRIHT 


RETLIFH 
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OL iHC 


THEH CURSET Has 1: LOTO 560 
A: GOTO 565 
‘IF FGINTCX, Voe-1 THEH IF Wékiuzd THEH 5 


REMSSSSSSSsnSEn es Edition imprimante 


ITO EF 
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RECHIERCHE DE LA PENTE 
D'UNE DROITE 


Si les jeux ne vous amusent plus, si la gestion vous ennuie, voici un domaine pour l'instant peu 
exploré : la reconnaissance de formes (sur un écran par exemple). 
Soit une droite dessinée sur un écran: 


PO 


P1 


pq 


e Nous voulons déterminer l'équation de cette droite. 

e Nous supposons que la droite ne présente pas de discontinuité. 

e Après avoir trouvé le premier point de la droite, nous recherchons tous les points de celle-ci 
en recherchant à partir de chaque point le point suivant. 


Point courant 
Point suivant cherché 


e Les coordonnées des points sont stockées dans 2 tables X() et Y{) 





© Par une méthode des moindres carrés, nous calculons la pente de la droite. Un coefficient de 
COVxy? 
VarX*VarY 


qualité égal à nous permet de déterminer si la courbe testée est bien une droite. 
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Recherche de la pente d’une droite 


ets) 
234 


336 
34 
3684 
378 
38@ 
339 
484 
414 
426 
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REM RFORM RECHERCHE DE LA PENTE C'UHE CROITE 
REM=—-———————— Trace d'une droite Four essai 
HIRES 

CURSET 29,3,1 


DRAH 59.199,2Z 
REM---———-— Recherche Premier Point 
FÜR Y=@ TO 193 
: FOR “#=@ TO 239 
IF POIHT{#,")=-1 THEH 154 


tHEXT % 
HEAT 
PRIHT "ECRAH VIERGE" :£STOF 
PRINT "PREMIER POIHT "ik" 
REM==sssesssesesesess Recherche de Points 
He loz#i EL Ie" :REM Premier Point 
AC=k:YCs" :REM Foint courant 
FOR FTe2 TO 5 :REM 5 Points 241215 
:FOR DEPL=1 TO 4 :RENM Deplacement entre 2 Points 
FOR Y1=YC-1 TO YC+1 :REM Recherche Point suivant 
FOR “i=xC-1 TO #C+1 
IF #l=#C THEM IF YC=Y1 THEH 274 
IF Y1zYA THEH IF #1=XA THEH 274 
IF FOINTÉ#1."19=-1 THEN XAz4C : Az VC: 4Cz1 : “CeY1: GOTO 319 
MEAT #1 
HEAT ‘1 
PRINT "DISCONTIHUITE":STOP 
:NEXT CEPL 
APT SAC : YEPTI=YC 
MEAT PT 
FRENM--- 
MP=S 
RE Calcul de xmos et moy 
SA=Q:5SY=4:#2=09 


FOR I=i TO WF 

SRE AHAC TEEN T D HBSAB4 MC T'ILAC TI à 
MEAT I 

MESSE HP CYMES TC HP 


ORIC POUR TOUS 


436 
448 
458 
46à 
47 
484 
49ÿ 
548 
519 
528 
534 
544 
330 
S6& 


5 
SF 


589 


Calcul de cou à" war 

EC=4:Sv=0 

FÜF 1=1 TO HP 

:SCaSCHAO I DENET -AME 
LEMRENA CT IRAE I ME 

:S22S 246 I EYE I MENT 

HEXT I 
CYSSC'ME UMR SEU MP MUR HP 

Aa 

B="M-A# #1 

RO=CUYXCU2E MAN 

PRINT "PEHTE:";:f4;" 


:FRENM Fente 


GET #%$ 
TEXT 


HT Var É art 


COEFF QUALITE=" RQ: 


Reconnaissance de figures composées de droites : 


alignés. 


Comment déterminer un changement de direction? 
Un premier essai fournit la pente de la première droite. 
Un 2° essai donne le même résultat. 

Au 3° essai, nous constatons grâce au coefficient de qualité que les points ne sont plus 


1*" essai 
A Al 
2° essai 
LS A' 
\ 
\ . 
A 3° essai 
\ s7 
\ Changement 
\ _- B de direction 
\ T 
A 
\ PS 
dl 
\ J 
\ J 
Lu 
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a REP EÛTF ECTATIOH C'UHE FIGURE 







41,6 1540 

more Trace d'une figure Pour essai 
34 HIRES 
35 noi =34: HS 
37 CURSET ; 1 

4 CLIRSET CE VERHÉE, 
59 ORAN -L Bi 
5e DEAU & H 
Sé DRAU L HE, 
Sr DRAM GHeE, 
FH REM---— 








echéerche Premier Point 


54 FOR Y=i T0 135 
99 FÜR #=g TO 234 
146 : IF POIHTE Ke 1 THEH 156 






136 PRINT MECRAH VIERGE": STOF 
148 
156 PRINT "PREMIER POINT: "x 


164 FREMesessssmsesesssss Recherche de Foints 


REM Foint courant 





298 FOR P=3 T0 1984 

2264 : FOR “i=YC-1 TO YC+l REM Recherche Point suivant 
234 : FOR #1=xC-1 TO #C+1 

248 : IF #1=4C THEH IF YCsY1 THEH FE 





255 : IF POINTE“ 1-1 THEN E7A 

256 : 

264 : FOR Isi TO 3 :RENM Retour arriere 

262 : IF Hi=kéP-T1 THEH IF  YisYéF-I1 THEH E74 
265 : PE I 

LT : 1:YCe "1: GOTO 3184 

274 #1 





£84 : HEST “1 
296 :PRIMT "FIN": :GOTO 44 


YCsvi st THEH 764 





:CURSET HO VC, G:CURSET XC, VC 1 
HEUT F 


RÉMR nRe E pot ones 
4 H=PI-'E 
HS FÜR Ie3 TO F-1 
PA Lie: ee T a 
SIMEAGIIF 5-81 AND 52,61 THEH ef 
CIF Ci El AND CE, G1 THEN Ce 














744 : 
FPS :CURS 
768 HEXT I 


T 641, C4 LE1. 6,1 
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Robot 


ANIMATION 


Ce programme transforme un dessin en DATA sous forme de caractères semi-graphiques. 
Ces caractères semi-graphiques sont affichés très rapidement, permettant ainsi d'animer des 


1929 HEXT 1 


figures. 
SE Dai LEE CHE 
44 
a : 
196 CATA ÉÉRAHHE 
1iä DATA " # + 
1269 DATA MO HX Æ 4 HE 
138 DATA UOOŒHH HE 
14 DATA " # # 
153 CATA " HOHLE # 
168 CATA " # # 
174 DATA UM OX ÆÉEHELE 
184 DATA " # # 
199 DATA UM OHELENENHEX 
cä4 CATA " * # # 
214 CATA # A: 
228 CATA " # # 
239 DATA * # 
24@ CATA " # + 
256 DATA " # + 
268 DATA " # # 
278 CATA # # 
288 DATA " HAHKEXE 
2938 DATA " # # 
388 DATA " # # 
318 DATA " # # 
324 DATA " + * 
336 DATA " #4 LE 
344 : 
350 
1534 FOR Is TO Zd 
191G :REAC LOI: 


1166 FOR Pyai TO 3 





jen hEs he Eee 


LH £Q 


RD M JR Lo Lo QUE me 


ES 


Ex 


SONDE 


FOR P=l TO 
FÜR Lei TÜ 


List PT #8+L PS 
MICæ LG LI. PS6 


ABLE 
HEAT L 


Cas dit Pule LED 


Le CHE 
GOSUE 2464 
HEST P 


HEXT F' 


LEE ne 


‘RENM ‘4 
‘REM CEFLACEMENT MEMOIRE ECRAH 








| 














*+1*+1#1%# 





_ 

















* 
* |# 
































:REM 3 RANGEES 
‘REM 2 ELOCS FAR RANGEE 
:RENM & LIGHES PAF RANGEE 


CP-1#Et+1 


1EF CARACTERE 
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<— PV 


121 


nt CN 


CR LM CN CA CN CA ÊN 
EGle Dim 


CT D imit 


1531 


1552 
1553 


1555 


1664 
1614 

1625 
1630 


1648 


2434 
24335 
248 
2454 
2464 
24F4 
2454 


DORE EL LUE LA 


Sn biiltie 
RAR REX EUX] 


LE 





Be ee pt pb pt pt be LU à 
5 RME NENE 





FENM 









à FEM 
BA REM 


PEN ESSAI: 
CLS 


LEL 


FOR TO 34 STEF 5 


K=1 
:PLOT X, 
:FLÜT 
:FLOT 
HEXT 

HAIT 266 


; " AE: " 
n CD LL 
n "EF" 





bee ps 
Fi in 


mmmmmmmmmmmm— DEFLACEMENT 
 H=1 TO 56 

FLOT #,19,"AE" 

PLOT #,11,:"C0" 

PLOT #,18,"EF" 








HAIT 
FLOT 
FLOT 
FLOT 
NES: HT # 
STOF 


LE N 


-.14," 
ñs11:" 
Hslz," 


CO BIHAIRE--: CECTMAL 


re B 
LeLEHE 480 M 
FOF M=1 TO F 
B=MIDSE $C H 0,1, 12 
IF HS"! THEN Fzi ELSE F=4 
HO=HDHRCEE ETES -ME 
HEAT 
POKE © A+D+H-1 3, HD 
HEXT H 
FETUFH 


METHOCE CIFECTE 


do 4, 
46 


:REM redefinition de A 


4 :FEM redefinition de E 


‘FEN adresse memoire ecran 
:REM € caracteres 
"ES: REM À Premier caractere 


Cac ASCC MAN NC: 

FOR HeG TO F 
ÉEADC HC:POEE 4+D+H, HC 
HET H 


: des codes en DATA sont 

aioutant au Frogramme Frecedant 
IHT HE 
HT 


BEN 
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PAYSAGE 
Paysage 


Soleil, nuages, mer et le bateau avance !.…. ® eo 
# BEM FASAGE 

16 HIFES : PAPER CINE à 

+: SEE MDI 1 11 6 


2RHD6 1 2 Ed F4 
LS RNCE TETE TE 








(3 


DE, 


Re S+R HD 1 4 E 


y 
ER EU 


D) 


:CURSET : 1 
: FÜR RAS T0 F:CIRCLE RIL'HEXT F1 
HET OH 


D 
= 


te me LD TS Ti C9 a D Fo Fa Fi 
Foi 
Lx 


149 HNEXT HU 
159 RM mme SOLEIL 


288 : 
219 CURSET 1,156, 1 
228 FILL 491,88 


z68 :POKE A+, 

263 :POKE AM+B, 4 

274 HEXT An 

288 CURSET 25,24, 1 

290 FOR K=1 TO 1W:CIRCLE K,L:HEST K 


292 FOR Ae@ TO Z#FI STEF PFl-14 
294 :Ra1G+RHDCIIKE 

295 :A=R#COSE AJ: YERESTHE A 2 

296 :CURSET 25,29, 1:CRAU #,%1 
298 HEXT À 


518 FOR Y=1 TO 6 

329 :CURSET 5441, 144,1 
330 :DRAU 48-24. 8.1 

348 HEXT 


260: REMemme eue EATEAU MOBILE 
4äñ FOR he 5 TO 244 
419 : FOR sl TO € 


4E4 : CURE ET ea 1 + 
5 CURSET +4 LÆ nt, 1 dd, 1 
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DESSIN DE DÉS 


Dessins de dés 
Ce programme dessine des tires au hasard. 


15 


1 
Î 
3 
il 
1 
1 
1 
il 
1 
1 


ID ee DUR LR 


a 
5 
3 
5 
3 


5 
Ê 
F 
1 


124 


im 


LEUR LA 






REF Dessin de des 
FEM Cessine So des tirées au hasard 


LÜRES 
FÜR TRæ1 TI . 3 Les 
DESIHTE de MYÉ 
cHeTREIE : “TE 





FiFLOT KL: +4, 17 






Les 
FLOT 4 LIT 







5 THEH PLOT #41, +1," 
“:PLOT K42, +2, "x" 
“Hi: PLOT 


IF DE=i OF DEe3 Of DE 
IFGE=E THEM FLOT #4 
‘IF DEsi4 THEM FLOT 
LÉHE en 

CIF DEsé THEN FLOT K41, 7, "M PLOT Hi HE, 











HEXT TR 


ORIC POUR TOUS 


23 "H":PLOT X 


“ +£ ; 


“x: PLOT 


TRACÉ DE COURBE 


Tracé de courbe avec graduation 


14 REM TRACE CE COUREE Caves radiation 2 

24 

36 HECR= 150: LECR=2 00 BEM Hauteur“ longueur gran 
48 INPUT M"EÜRME “1 "El 
SA INPUT MÉORHE #2 "MiEz 
58 IMFUT "FHS M": PAS 
Fg : 

F5 AeBl:GOSUE La: vier 
84 FÜR “=E1 TO EZ STEF FA 
18 : GÜSUE 234 






114 “1=T :REM Mini 

124 on °REM Maxi 

134 

135 

146 

154 :RENM Echelle %# 
168 ‘REM Echelle 


174 À Axes —— 
188 IF Y£s:f THEH IF vl£=@ THEH Y<HECR-ABSS YLOHEY : CURSET 1,%.,1:CFAU 
LECF. 4,1 

196 IF BZ=%ù THEH IF Eléef THEH #sABSC ET HEX: CURSET %,1.1:CRAU GHE 
CR: 1 

246 RE 

c14 FOR #<E1 TO EZ STEF FAS 

2e :GOSUE 234 

236 ‘Sae( BYE 

244 :SYSHECR 
SSA :CURSET S,5%,1 

















264 HEXT 

261 REM=-eenmmmsssmmemmns Graduat ions 

262 YÆHECR-ABSE 1 SHEN+S l'E= BE GÛSUE 273 

2éd YEHECR-AESC VI THE N+3 : ESLECR-S:EBSES: GOSUB LT 
266 Y=HECR+A 6e ASE ET THE : BE 1: QUE UE 273 

263 Y=5 HeABSC ET S4EX : EYE: COSUE 273 


271 GOTO 284 
272 REM---- 

73 IF HiLECR+14 THEM YeLECRE 

F YHECR+14 THEN Y=HECR/2 

275 CURS ET Hi: :HB=GTRSCE SN: IF ASC HSDeZ THEM MS2RICHTSC HS, LEMC HS 





76 FOR Fei TO LEHE #6 0: CeASCC MID 4, F1 CURSET &+P#8, 3 CHAR C, 
1 


FF HEAT F 
2F4 RETUFEH 


cad GET *5$ 

286 TEAT 

£&F EHD 

298 REM mm ee ne a one ne one me Courbe 4 tracer me 
299 Y=SIHC HIS 

344 RETURH 
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Copie écran — imprimante SEIKOSHA (haute résolution) 


14 FEM COPIE ECRAN--2IMPRIMANTE SETECSHA CHAUTE RESOLUTIOH : 


GA DIM TÉS4@i:FOKE 49,255: CALL H#E6SCA:LFRINT :Y<g 
44 FÜR He1l TO Z£ 

: GOSUE £G8 

FÜR Mel TO 7 

GOSUE 364 

HE#T M 

GOSUE 4 

HEXT H 

a GÜSUE 265 











FÜR Mai TI 4 

GOSUE SE 

HEXT 

ä GOSUE 464: CALL #ESGd4:STOr 


BD REM----—— Remise 4 Zéro memes 
FOR Ii TO Z4g:TCI2S126:MEXT 1: RETURN 
eaitéement Par Ligne RE 


‘Fe =F 'Î ï HIT MAaTIIF Feel THEM TE ae TE Eee fl 









34 HEXT 
4 Ver+ 1 
354 RETLF 
4agg FE - Editicrie 
41 LF ei 
426 
434 LERINT CHER TEL. nn; 
dd HEXT 
45 LFRIHT:RETUEH 

1 .flieiice 

ET] £ TE 
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Conduite voiture. 








1 REN CONDUITE VOITURE 
È REN 





- EOUTE 
° MAC 





ÉEP Fusition voiture 


117 SÉ:PAFER À 
1 






IF 
LFRIHT CHES 
HEXT 

LFRIHT CR 
HEXT 


REM=eememeneennn POUR VOITURE VERTE 


THEH LFRINT "#"::GOTO 688 


ho Ti 


ee é 
ER 






mn ii CN 








14% FLOT #4 
142 PLOT #4 
143 FLOT #4 





oi Pire 
es en 
Ur a 
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Pièges 


1 FEM FIEGES 


suivent 


13 KEM 5 MONEÈrEZS vou 
É che Faire tomber 


14 FEM 
16 FREM 
1e : 


su 





PRINT CHR É à 


Le vitesse monstres 
M=t ‘ monstres morte 
Asie: CelePLOT AC, TL IT Ms coordonges 


FOR Izi TO 3 
AM T De THTE HD 1 
PME T = INTE FHOC 1 
:PLOT MOI ME 
:FLOT RH 1 He 
HET I 

MAIT 25H 


ï THEN SH 

: THEH 36 
MONELIES CIAUNMES 
sRHOE IEC, SG" pieses bleus 








FÜR Tel TO 5 
HSPEERS REG NTIF es THEM SE :REM test clavier 
FLAT #L. TC 16 


THEH IF HUE 
THEH IF # 
THEH IF 
THEH IF YC 
14 “ É 4 17 Ci 


DORA LR EAN ELA ELA ELA RS) ET EX) 









DU UIMUEGQR ee SUD OS DUR D mu 





5 0 1m 


OpDEN 


le Ti THEH 4H 
AT 2 ARTE 

LT et SGME MC I CE 
SCC ME 2 ! 








TF SCRHC Me LS, YMÉTINe #S4 THEN FE 





Fi Pi F5 F5 Ps pus Pas Po Fa Rien penses pee pe LU —} UM CN BR itfur 


Pièges 


ZE : AMC I De: VC L 38 FLOT MB TA LE Mett+i:GOTO AG 






re = HTC ME L 
S:PLOT #1:%1,13 


G : IF “i=#C AND YisYC THEH PLOT £,2, "FPERCUM:HAIT SGA: GOTO £4 
A : IF Me3 THEH FLOT Z,2, "GAGHE"CUAIT 366: GOTO 4 


A HEAT I 
6 GOTO 154 
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Tas de cubes 
Cubes multicolores 
/ 








Les CUÈES multicolores tombent du Haut de l'écran 
andissent gt PForment un tas multicolore 





44 LORESE 
SO FOR #s1 TO 38:PLOT X24, 17HENT à 
6 


Ü 
Ê 


Lx] 


CA 
C=THTE AND 1: KP +] 


Us 


Lo Co 


NEA 





‘16 THEH 1H 
5 THEH PLOT ie] LE: PLOT 4 LT 


113 


: SHOT 
Cie LNTÉ FMC 1 5 


TL 


F5 
= 
5 


DR ELTE 


Æ3:1F De@ THEN Dei 


DE, 







FÜR ei TI] 


IF SCEHE lé THEN FLIIT el, 16 PLOT LEE et] GOT 1 


Ex] 


THEH FI 


Ti Gi UN & Lo 


ses 
Em 
D = 
a 
LE 
= 
e 
ee 
& 


Di 


D 
mi 
xx 


NRC ELA EL 





RS SE 


Firm 


GÜTr FE 
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Soucoupe 


14 FEM SOUCOUFE 


Le Joueur doit rattraper dés Paves 
tombant du haut de l'ecran 





da LÜRESA 
di PRINT CHERE LE IREM suPPress ion CUPEELr 









= [A :REM 
1,4, "AFEUTER SLR 





EG HeH+1 
74 DP= 
80 FOR HeuS TO HS+2:FLOT HA YS,17NENT X 
mA 


25 4 IMTÉ RHDE 1 DEP DE PeQ Ce LE 4E4 LHTE RHDC 1 HE 3 
T XP: TPE 


eee CARE A CALCUL 
CNN THEN DPF 





A Le Pi 
E 





Si MAT 3 
5 IF: A VPHLNCIE EF 23 THEH 178 
16: PLOT HE41,0S, 16: PLOT HS+2,Y5,16:GO0T0 5 





PES THEM Er] 


THEH SEE 


: THEH FLUOT LE PLOT Kit, TS LE: PLÜT SNS, 16: GÛT 





& 41 THEN GE 
HTC Re CRBEL GE Ge PLOIT SM, Et SCORE 'RSTRE ce 0 


57e PLOT XP, YP-14 





 PLÛT 6 ES LE: PLOT HE NE LÉ 






9 : 
Ant PÉMesaae 
314 PLOT 





elles Positions 
CRE Ni 





AFFICHAGE rat 
TE LÉ FLOT %; 








PLOT HP Be, LE PLOT SPF EC 


GT 
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Affichage publicitaire 


Co Lo FO Fa fs 
usant: 


& 
Lt) 


45 


nn A 
aus e 


19 
11 
1£ 


CI 


or 


P 
O 


U 


R 
REM AFFICHAGE PUBLICITAIRE SUOT ee 


FRET Affiche Un message sur le Perimetre d'un rectanale 


AE  Longueur“Hhautenur 
mm CalEUT Ccoctrdonness affichase 





ACT est 
MEAT I 
FOR Izil TO H 

Ci LT EL UE TL AT 
MEAT I 





FOR Isi TO L 
RE LHHET Le T EE LH T EH 
MHEXT I 


FOR I=i TO H 

RC LH LT DEMO EVE LHH4LAT Dee He 

HEXT I 

REM 

A$=",....ORIC. . POUR. , TOUS... suesseeuses Ronan 
LG=L#Z+HEE+1 

#S=LEFTSC AS, LG à: LeLEHC KE 


HS=RIGHTSC HE, 1'IHLEFTSL HS, L-1 3 


@ FOR I=1 TO L 
9 FLOT HIT MIDSI ES, I. 11 
ü HE“T I 


35 GOTO 64 
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Cubes multicolores 







BEM CUBES MULTILOLORES 


| FE Des Cubes multicolores Lormbent du Haut 
Le an gt s'emFilent 





LORESE 
PRINT CHE IT » ai nee men et 0 


210: DIN ECM 
Rae 
FÜR: Fxl TT He 

# RMD6 LEE TEINTE E 







nn ES 


DR im GE 


DE SEPT LE PLUIT EC 


ni ji Qi 


A 


Lx 
ni 


BU: SUITE LS 
ee THTC EME 






CE LE 0 CITE 


mi 





pe F +1 





Lilimempe ke bee pe pe ii 
St D D DUR 


Si 9 CN Lo F5 


GOTO LE [ ] 
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Maison 


16 RE HAL SON 
24 


45 CF= RE coulœur de ford 
HIRES PAPER CF: IHEI 
CS EUR OR TR ECTS 
be LA : Eee LA 
HT=36 : Le RENM hautéæur. Loi ET omauenur 
FÜR I=l 2 HT: 1 
" :CURSET #6 rc 
CEAU L GE 
MEXT I : 
1a6 A a TT AN CE LL Rue 
182 FÜR Teil TO 15 
144 CCURSET EI, EL EET , 1 
145 ORAN 56,1 


1H ME#T I 
Î 1 FEM RE QE AE ANR EE RE la io ‘7 es F CITE: 
1 É 1: V1 = TE AT #50: L=4 “ES: STSUE AA joie L Not 


FOR IE 1 TO 15 É d Bleu foncé 
CURSET +1 EE HTE LEE, 1 














: DÉAH 15.6, 1 
245 HE#T I 









DRAU 6,15, 4 
OL CRAN 15,6, 4 
 Forké noire 












+15+15 





HHT+15, 1 
+HT+ 15 1 
E 
HS MEET 4 SHE, 1 EM Poignées 
mme Cannemnent conteur de fond Col tion 2 
mme ENT EL 

FILL H41, d Lé+É PAPER 6: MATT 164 


1.1: 
Li: FILL Heli 1, 16H: PAPER EH: HAIT 1664 
LL FILL His 1, LE+CF:PFAFER CF 


L+L +1 
MlitL +1 
LL +1 





ER M Se PS ee RO Fi AE: ap" Ca nl “Hi air 
1 TE FILL Hal: 1E+d RE back Green 
dl LS FILL Hd Lét+CF 





Hill. ue Hi 15 REM Foregronned Laure 
ltd, #1, ‘FILL HF 


LRSET 
E RETURH 
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Soucoupe volante 


SOLEOUPE YOLANTE 




















arabe Lun PLUELE 
. Œur ESPACES 


SANTO Es : 
Soucoupe 
rouge 


MHEMT H 
ile 








MC PORE +Deeh D MER#T 5 Cible bleue 





7: ME 

PLOT 1.4, "APPuser sur SESFACE 
135 HCSTNTI EMDE 1 CHERS +16 Le T : FLOT 0 Ce, Co PLOT KDE 
ss: Es CREM bobines écrase 
155 À FOR I=i TO SVP Ie PE Ie MENT I 
“£ STEF & 


A : me & L 
174 :PLOT 3-8, 18 1'PLOT KE vi 








184 ‘IF KEYS$="" THEH 155 

t FÜR Izi TO à 

CIF YPSI eg THEN PCT He El Er 
MEET TI 








Le MAIT SE: PLOT bel Te, LH 


THEN VRP I de Pé Lie PLOT HPCI D YPC IDF 


REC 





1 LIHC 


REM inmvérs lon Sens 
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fin 


F 
F 
(a) 


RES 
Lex Eux] 


[5 [3 


Où Co Pate Co 


Fire he pepe be pe pe Li DC —j OM CN Le 


SOA 


D 5 


216 


EEN  IMMELBLES CE COULEURS 


REH 


dessine des 





REM-----. pédefinition graphique de 





REED RE RD PILIERS PE STE 
AeHé GE : CeAECE MINCE 


FOR Heë TO 

REC HO:FOKE A+D+H, HD 

HEATH 
EM nn 
Hÿ=1 :YÜR25 


*E=XG : YE=1G 





FOR Hel TO 5 
:HERMD LIKE 
LeRMDE 1 #44 
CRD LE 
:GÛSUE SGA 

: #B=KE+L+1 
HEATH 

STOF 


IREM © immeubles 


immeubles de couleur aléatoire 


“1 


REM == on oo on oo onu Dessin immeuble 


FOR =YB TO YB-H STEF-1 
:AFH=CHRSC LS 
FOR #1 TO L 
: AFS=AFS+U I" 
:MEAT # 

:PLOT #E,% 
HEAT 

RETURH 


.AF$ 























































































































G- Caractère redéfini. 
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GENERATION DE CARACTERES 


Nous reprenons le programme ‘ROBOT où un dessin en ‘DATA’ est reproduit à l’aide 
de caractères graphiques. Mais cette fois, le dessin d’origine est réalisé directement 
à l'écran suivant le principe du ‘TELECRAN. 


e ‘L’ permet de déplacer le curseur sans dessiner (ou d'effacer) 
e ‘F° termine le dessin. 


La deuxième partie du programme calcule les valeurs décimales nécessaires 
à la définition des caractères choisis (a, b, c, d, sur l'exemple). 


Valeurs décimales 


b c d 











à 
0 0 27 54 
9 48 29 46 
7 56 14 28 

15 0 . e 

29 . e e 

31 0 0 0 

31 e 0 0 

31 e e . 



































NN 









































JL | RER Y 





Nous avons prévu des dessins pouvant comporter jusqu’à 16 x 12 points. 

Lorsque le dessin est affiché sous forme graphique, nous avons la faculté de modifier 
le dessin d’origine et d'obtenir un nouveau dessin graphique ainsi que de nouvelles 
valeurs décimales. 
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Le programme ci-dessous utilise les valeurs décimales obtenues pour redéfinir 
les caractères a, b, c, d. 











14 CATA 4: 

24 CATA 

24 CA co 

4 CAT 

SA = 

CC] 

FE era actes, 
Ef 4" el +0: DeCXES 
SE TEL 

1464 REAC HOC:PÔOÉE A+C-++l, HO 
118 :HEAT H 

124 HEAT CH 

134 : 

144 PLOT 14,18, "ab" 

154 FPLOT 14.11,"cd" 


Extensions : 
e Nous avons fait ‘pivoter’ le dessin obtenu (voir rotation de figures). 
Deux problèmes se posent : 
1) Les points de l'écran ont une hauteur différente de la largeur. 
Par conséquent, après une rotation de 90°, une figure se trouve ‘aplatie”. 
2) Pour des rotations inférieures à 90°, les dessins ne sont pas précis. 


e Nous pourrions générer des figures agrandies. Les figures obtenues permettraient 
de simuler des grossissements. 





FOR DY=-1 TO ÿ 
FOR DX=-1 TO ÿ 
R1(2xX+DX,2xY+DY)R@(X,Y) 
NEXT DX 


NEXT DY 


Sur l'exemple, la taille est multipliée par 2. Un point de la figure d’origine est remplacé 
par 4 points. 
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Génération de caractères 








dé Foints 


F2R1613,175 


B:MEUT K 





"oints 





3 FLOT 14,22, LeLEVER - BeBAISSER Fe 





DR + Ex. 


M CH=HEYS IF Cécunn THEH 54 


LL FLOT CRUE FLOT “Ts LE: GOTO SE 


EN EN] 


IF Leï THEH FLOT %,%,17 
HSE CS 


Ti 


NRUeGDO M NIMELU RE 
DASODGRUNDEE 


ai Es 


 C 
NE 





= min 
DR EEE Lx) 
+4 


= 1 à THEH IF 16 THEH + 
IF Ceii THEH IF “1 THEH =“ 
IF Cé=e"L' THEH Lel 
IF C#="E" THEH Lesÿ 
IF C$="F" THEH 2H 
GOT 54 
RÉM---mcosommssemshuse usa 
FOR “= J 16 
FÜR #e1i TO 1€ 
IF SCRNC A, Muslr THEN FGé x, OS lELSE RAC, ie 
MEXT 
MEAT 








Fi PO PO Mi Mes pe pa pe pape pe ba pe pe 
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42D REM---— 

604 A=46n60 

614 FOR LG=1 TO & IREM ? 1 

526 : FOR CL=1 TO 2 :REM & € 
Cé"a" 1H LG DÉC 


Le) 
3 
Ki 
in 





FÜR LE 1 T0 
Lis LG 1 EL: Pémr CL HE 
HD=f 
FOR #=1 TO 6 
HC=HC+RGE PE, LIGHT EE 
HEXT % 
POEÉE € A+Cæ4le 1, HD 
FPLOT Li Let MÉEC CL MES, SL, STRSE HE nn 
HEXT L 
: MEXT CL 
HEAT LG 


FLIOIT EE 
FLÛTE 








26% PLOT cf, 1. "RETOURNEMENT ee Ft 
Fg IF Fée" on THEM CSS 





FÜR Lei TOI 16 

FOR Cei TO ÎLE 

RICE, L'usRgi Léa t LD 
:MEXT C 

HET L 


Si 
ni ii 


Den EX ELU EX EE 


FÜR Lei TO 16 
‘FOR Cei TO 1 
REC, Lospii CL 
HET € 

HEST L 


GE 


DURS QUE Dies 


GOT SE 


Di 
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Ciel étoilé multicolore 


FEM CIEL ETOILE MULTICOLURE 


C'ATA 
DATA Ë 
DATA 5 
Ts Ë 


En CH 


En 
LEA 





:RENM dcaracter 
EI D a"! 5-14CR: CaeCts 

FOR Her TO F 

[e] FREADC HC:PÛKÉE A+C+H, HD 
A :HEXT H 

A HEAT CH 
4 : 
1 





FLOT 14,16,"ab" 
4 FLOT 14,:11."cd" 
4 PAPER: CLS 

5 PRINT CHEF 5: 

A RENM---- 
A FÜR Ez=1 TO af 


a Po Pis pt ps pes et pet et ee et D 0 Un La Ps de Ait O —} Qi CA 


“is ot Tr MDN bRiotie GR Qu 










THEH 16 
3E THEN £1H 


Ads r+lC 


FAFERE: HAIT 246 
FAPERT:MHAIT 244 
FAPERG:UAIT 26 
GÛTO 336 
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REN Dessine des etoiles multicolcres 


Saut obstacles 


in 


FENM SAUT CESTACLES 


Aepuugr sur CESPACES Pour sauter les obstacles 


2 
_n 


RE DESSIMI 


BB Lire ip oo M 





{a CATA 2 
4 DATA 
4 DATA 
 CATA 
1 FEM-- me DESSTH SAUT 
+2 CATA 
43 DATA 
4 CATA 

C'ATA 


Az AE | 
REM----ee eee MEDEFIHITIOH 4,,,,H 
FOR CA=i TO & 

CEABCE at 1 +CA : DeCXxS 

FOR He TO F 
& : REAC NC:PFOKE A+C+H, HD 
A :HEAT H 
G HEXT CA 
ä n 


Poe GG in CN in 


Li 


CLS: IH: FAHPERT 

“=14 

FOR #=ÿ9 TO 38: PLOT +, CHARGE SOS MEURT 

158 FEMzzszzszzzszsssssszsessez 

168 PLÔOT 15,%+1,"1" 

17@ PLOT 25, 41,01" 

184 : 

199 REM-- 

295 FOR #=2 TO 36 STEFI 

296 :IF SCRNCAYHI, +1 SES THEH 245 

287 : SHOÛT : FO=PD+1 : PLOTEG, 2@, STRSE PC" OBSTACLESS 0 GOTO £16 
288 : 

293 JF. nie THEH SHOOT : POsPD+1:PFLOT 29,28, STARS FD QRE 
TACLEK € 

214 LOT #a ts "al" 

228 :FLOT V1 "ed 

Sen ‘HAIT 14 

244 :PLOT #oYs" 1 

254 :PLOT 414 Ê 


me LUEUR 


ma 
audi 
D'ELLES: 


[er 





255 


Cas [ 


qe KETS< UN THEN GOSUE 546 


PSsPS+1:PLOT 20,22, STR8CPE D" PASEAGE(S 3" 
GOTO 164 

REM=——— SAUT 

35 PLOT #,Y-1, "ef": PLOT H,v,"gh" 
à HAIT 24 

PLOT # 





ep" SPLOT HU 





à RETURH 
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JEU DU PENDU 


e Voici le classique JEU DU PENDU. Celui-ci présente cependant une particularité : 
le pendu agite les pieds avant d’expirer. 


Lettre 
utilisée 







ABeDEFGHIJK ___7 


Fond vert 


Quelle lettre ? 


Les lettres de l’alphabet qui n’ont pas encore été utilisées sont affichées en haut 
de l’écran. 


Avant d'afficher un caractère sur l'écran avec CHAR code, JEU, COULEUR, 

nous effaçons le caractère précédent avec CHAR 127, 0, 0,. (0 représente la couleur 
de fond). Sans cet effacement préalable, il y aurait superposition de l’ancien 

et du nouveau caractère. 
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Jeu du pendu 


1 REM JEU CL FEHOL 






CIM MOTS 
FÜR Iæ1 Ti 








HE#T TI 
L' I AHS 








REN-——— no on 





5 HIRES:PAPERF : INK4 
E 


sol ei CA ON Gi Lo to Li 


75 REM-—----- 


A FOR Isl T0 £é: AHSC LI=CHRSC 1464 


SR en 
2 CURSET 9,95 ,3:FILL 98,1,16 


:REAC T MOTS LOF MIT Te EU THEN He Te 1: GOTO SE 


RENM affichage mot 
:REM affichage a1Fhabet 


SHEXT I :REM alFhabet 


gp Pour. Férdun 
CURSET 1H6,95 HFILL 6, 1 16+r 


114 CURSET A, VAL GS: FOR Tel TO Sé: CHAR ASLE AH$ET 4, 6,1: CURMOS 5,09, %: 


HEAT I 
135 


145 MSRNDE 1 DEMI: MOTS MOTS 3: LeLEHC MOTS D 


145 BPL=<G:PD=E:LUSg="" 


164 CURS ET #6, %@,3:FOR Pal TO L'CHAR 46.8, 1:CURMON 16, 6,3 :HEST F 


165 


178 INPUT" Que lle lettre MiL&: PRINT :FEIHT 


189 1F LEHCLUS:=@ THEH 155 
151 FOR P=1 TD LEMCLLS à 


RENM lettre utilises 


182 IF Lé=MID#LUS.F,13 THEH GÜSUE a@8: GOTO 44 


183 HEXT F 


184 REM----———— bonne lettre 


185 B=f 
136 FÜR F=i TO L 


249 ‘IF LéeMID$MOTS,F,1% THEN Bel: LUgeLUR+Lé :EPLeBPL41 : GOSUE FE: G 


OSUE 135 
214 HEXT F 


Es IF Ezh THEH GOSUE 944: GOSUE 
L IF EFLeL THEH FÉIHT "ÉBEHYI, 





24 GOT 1F4 


IF Flzs THEH FEINT "FERDU, 


ph be) 
«""MAIT SG: GOT SE 


& Mt. etait:"; MOTS: HAIT 364: GOT 
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EM affichase mot et a1Phabet | 
URSET * D ie HAL 127.84 a: : CHAR ABC Lg à, 4, 1: RETURH 
. LE: #1, VA: 2: CHAR 127,60: CHAR 46.0,1: 





a | “4 


D Ji CN EE Lo pi ee it D Pi Fo F5 Pi 


“À 


RE ess din FEU eee 
FO=PD+1:FIHG 
ÜH FC GOSUE 324,856, 940, 350, 360, A6, 360, 38 : RETLEH 


D MR JM EAN Br, 


CURGET : 24,196,3: CRAN 26,64, 1:RETUEH 
4,30 G,-54,1:RETUEH 






ui 





! 49,6: 1:RETURH 

3:DEAU 26, -24, L:RETUREM 

.3:DRAN 6,20, 1:RETURH 

G,3:CIRCLE $: 1 :RETUEH 

5,2:DRAU 4.25.1:CURSET 60.150, 2:DRAM 26,0, 1:RETURH 


TH 
LYCILIURE 
rm 
pal 
LRIREIRE 
mm 
1 — 

4 
LEUR 
va + 
£ E ; 
cn 
CÈDE 


Be RE A Qi Et Li Lt QD QD LE ED QU 4] —J 


LEA] 


LR EUX ELA ELA) 







: FEM Fiedsé optionnel 
SORA 5,15, 1: CURSET FES: DEAN 515,1 
:CEAU — DEAN 5, 1 1:MAIT 1 

: DEAN DFI s1.€ 
3 CEAH : CEA 





nn 
be bé ii a 
Li D) —J 


DT TJ 
ni 





ee D Lg D LS Lg LOL 


RE) E Es CRAN - 

34 EC=<EC+1:IF EC£E THEH 3 

SZ RETUFH 

GE DATA MATSOH, SAPTH, ROULETTE, CIDRE, CASSETTE, WELOL FATINES, HOTSETT 
OEIL, 
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Météorites 
14 FEM METECRITES 


re deFlace a travers 


: RE ti ie les flec chez Four Se déefPlacer 





4û Et PUTT 
+1 FENM-- 
d£ CATA 
45 A=4S ASE : à: 

45 FÜR He TO F: EAC HD: POKE A+CHH, HCCHEET OH 

45 REM----—- 

54 PRINT CHERE LT 20 :FEM suFPression curseur 










15: VVSZ : Ah : ATEN 
3 :: PAPERE : IHK4 

35 PRINT: PRINT PRINT: PRINT 

FOR L=1 TO 19009 
:K=RNDC 1 K3S+L: PRINT SPOCK; "a" 








CIF SCRME SU, UE ASC Mi THEH 1EG:REM test collision 


:EXFLODE : PAPERS : WAIT 35G: PAPER: FLOT 24,23, "SCORE : "+STRSE Li 
HAIT 544: GOT 64 


:PLOT A4, A1," :RENM effacement ancienne Fogiticon 
:PLOT 44,1%, 5CS$ ‘FEM nouvelle Position 


AU Are :RENM ancienne Fogsition 


De _—————— test clavier 
“=FEEKCHEGE UM IF 4256 THEH 3A4 
°TF #Halse THEH IF #WY<36 THEH # 
IF #=1r2 THEM IF AVE THEM Vziu 
HEAT L 
PET een a ane ne a x vo a aan ne ne go ane vo co ea on ee a 


324 REM FEES #EGE : peut etre remPlace Par MéekEVRIF «pa"t THEN, 






D DS DJ D PO ee © 10 OÙ D Um 9 © 


DD eme pepe pe pt pe pe ji ii hé ème a 
DB LNDEOMNMIDAINAIMNMAME 


3 : 
dé FEM Four obtenir Une EOUCOUFE FOuSge, Faire: 
5 REM 1 FLOT ue LU, CHRSE 1 HS C4 CHR SE à 1 


-d_- 


7 7 
x 
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Bombardement ville 


146 











1 FEM EUMEARCEMENT VILLE 


FEM Uné soucoute bombarde des immeubles 

6 REM 

SU CHESE 18 :REM suPrression curseur Ctrl 
redefinition graFhidue de I 
51,51,62 646 

set ï 1 (n IRE w 





F+Ci+H, HO: HENT H 
SC OUUE & 


53, 





! SC # 

FÜR Heë TO 7:FEAD HD:POKE A+D4H, MD:HEXT H 
REP venu nee Def ni don Frojectile 
DATA 6,5, 154,6 g,6; GE 
FH="#t:Dzf 
ÿ FÜR HE TO PF: 
REM De és ee ne : in © Dubé 
ÉTRrAPEe #E VESTE 

: PAPER: IHÉE : : PLOT 1.64 ,"ApPuuer Œur £esPaces" 
E On Mel TO S 
He Le on as nee 12#4 3 









Poe it 
RCE 


_ 
Et 





x] 
ms 
7 7 
ea 
Z 
DIT 
Fer 
K à 

RE: 
+ - 
mi 
3 
me 
Fi 
ss 
Ex 
= 
Le 


Jin i 





ans 


pe pee pe pe pe me pe be 1 4 
nn] 
D CA im 


me ess on 1 irmeuEle 
EYE TO YE-H STEF-1 

CHESE C0 

FOR el TO L'APÉHEAF SAND HERT # 
:PLOT #6," FE 









D 
Hi 
ATDZ 
&# 
H — 


4 FETL IE 


Réel 


ORIC POUR TOUS 


ECIMEARDEMENT 





K2 STEP 5 


à FOR Gel TO 
DE 
IF YS>17 


THEH HAIT 
#5,%52235 THEN EX“PLODE : FA 


3464: GOTO 1454 
455 :IF SCRHE 
:GÔTO 144 

+6 Hs, VE, 1 
Cr 
455 
+305 


AE 


VS 


:PLOT #5,%5,8CS$ 
°F ÉEYH="" THEH SGA 
FÜR Il TO 4 

F “FCI: THEH 
:HEZT I 


‘RENM deF 


“PEL De VE+ 1 : 


:FÜR Iz1 TO 4 
IF FCI THEH 


:REM ava 


IF SCRMEEPC I, PCT IUESE THEH 554 


PLOT #PET A PET AU" 
! 3 THEN YPSTI=YPET +1: 
MPÈTUSZS THEM PET SG PCT et 





D a da ET Gi PE ED UD 


DO D US QD -J 









d F0 = Gin 
SD DRE 


ICE mm 


S= E+1 
GOTO 4 


PF M MIO NNNMNNNE LE 


:FEM coordonne 


FER S 
: REM 


art 


PET IEEE 


MIE 


LOT 


GES SONORE Rens 


:REM Fin 
WAIT SG: PAFERE: AIT 4Gf 


EOUCOUFE FOUSE 


tir 


:GOTO SEE 


Froiectiles 


RPC LD, YPC IPS 


: REM 


mers lon &ens 
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Tir sur cible numérique 


1e REF TIF SUR CIBLE HUMERTOLUE 


















ie dé Chiffres au Pagare es 


RENM temps Partie 


15 FLOT 


16 CES= FIGHT LES: ECHLEFT#E CESR, LEHE CEE 
FLOT TANT, 





IF EEE EU THEN CF=1 EN Test depart 
IF DFef THEH 356 


FLOT XTAYT," 
YT=YT-1 

PLOT XT,YT, "x" 

IF YT=YC+1 THEN 54 


A HeH+T:IF Nez THEM He@:GOTO 118 

TFETF +1 

GOT #14 
À RESULTAT --- 


POINTS : 100 
TEMPS : 47 


CE 
MHCHRRE Z + PS 
PAETRQE TES LE 






Ps=tID 
FLOT 1 





A, "TOTAL : "+STR RE 






"TOTAL. : 


MTOT STE TELE 
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CASSE BRIQUES 


e Une balle se déplace entre trois murs. Elle détruit des briques dans le mur de droite. 
e Le joueur doit faire rebondir la balle avec une raquette qu'il contrôle avec 
les flèches T |. Si le joueur rate la balle, le score est affiché (nombres de briques 


détruites.) 


Version 1 : 
La balle détruit toutes les briques sur son passage. 








BRIQUES 











| 
RAQUETTE 1} 
[ 





Version 2: 
La balle ne détruit qu’une brique puis rebondit. 
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Casse briques n° 1 








1H FEM CHASSE BRIQUES HO 
i PRINT C 3 à 
3 LORES (al 





Initialisations 


fi 

f 

A ; :RENM Raduette 

A 4 FR R+1, 17: PLOT #R,TR+E IT 

D RER Eee mines innne sé Avance Dalle mm 

fi . 

A HizsE: AT=TE :RENM Ancienne Position 
MESSE +AU ETES TEXTY :REM Houvelle Position 


UD OO UM BST D GR JUN GR GR D mn 


DAS, ER ELT EE 


IF #15 THEH XE=KE+#V#INTE RHDE 1 #2 


emmener pe (O0 4 0 CT a di 


Dex] 
Len 


219 IF #4B=rx2 THEH 4V=-V4:YB=TB-"V:GOTO 124 
228 IF YE< #1+1 THEN YY=Y:GOTO 194 :REM Reb cotes 
234 IF B=2\2 THEN YV=-VY:GOTO 184 


245 : :RENM Reb raquette 
Fe IF #BCAR+1 THEN IF YE=>YR THEN IF YESYR+3 THEH vewé: GOTO 184 


257 IF SCRHCAK, AY)=18 THEN SCeSC+1 
268 FLOT A%,AT.:16 ‘RENM EFF balle 
EG IF SCRHC#E, YB3=13 THEH SC=5C+1 


274 FLOT #E, TE, 15 
TE IF SCRHCHE+1 ,YB5=19 THEH FLOT #E+1,YE, 16: 5Ce5C+1 


arf 
S4 IF “Bis4R THEN PFLOT 26,16, "SCORE : "4STRSE SC: MAIT 346: 50x09: GOTO 


it raquette —--——--- ose: 


Lux] 


RER EE EE 
0 Co co 


=, 


REN Def laceme 
Ai HRPEERS #28 2: IF #=Sé THEH 35 


ni 
3 ( 


345 

314 1F#=180 THEH IF VRCVE-S THEH Re vR +1: PLOT ER, MR 1, 16: PLOT #R.YR 
+2,17 

324 IFés156 THEM IF YREYI+1 THEH YRETR- 1: PLOT FR, RAS, 16: PLOT XF, TR 
‘17 

334 GOT 164 
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Casse briques n° 2 


ÆE ERIQUES HQE 





REM CH: 


FRIHT CHEGCE 11: 


3 LE 


Hilhire 
Lit 









[e) 

4û — Dessin terrain mme 
à LL PLOT HR API MEST 

Ë es Ta HET 

Ë E- 1 


QG HE-LPLOT HT LS MENT 


um Jnitialisations een 


We Vel 

HAUTE AT EXT 

MES: TES THNTE HD 1 ET E 14 

PLOT #E.YE, 15 

Are: RS1É :RENM Faduette 

PLOT HR, RP: PLOT ER RE LP: PLOT HR TRES AT 


REM eee ange Dalle meme 


mme ig DM T 
Die GO -IMInMmE 
CRETE 


RE 
a E 
se 


159 POLENETE REM Ancignne Fosition 


Fe 
TJ 
Le 


AB=AE HAN ENERNERSY MEN Houvelle Fosition 
185 : 


SE 
© OO 
eus 


260 : 

219 IF XBz2x2 THEH Ve: Es Es GOT a 

c24 IF YB<\Y1i+1 THEH YVawW: GOTO 184 :RENM Reb cotes 

230 IF YE=2Y£Z THEN Ve: GOTO 154 

246 : 

245 : Es Feb raîuette 

250 IF #EB<4R+1 THEH IF YE=2"" THEM MECTRA+S THEM veut: COTO 1814 
255 : 

257 IF SCRNCAK, Ave 19 THEH SCeSC +1 

269 PLOT AX,4%:16 ‘RENM EFF balle 

268 IF SCRHCXB,YE2=19 THEN SC=SC+i 

263 : 

274 PLOT #B,%86,18 

272 IFSCRHCHB+1, TES LOTHEH PLOTEAEB4+ 1, VE, LE: Men: PLOTHE, TE. 16: SCeSC 
+1:COTO 184 

279 : 

sn IF #Bés#R THEM FLOT 26,15, "SCORE : "4STRGE SC: MAIT 348:5C-4: GOT 


290 REM snrssssesesens DePlacement raquette es 

380 nn =PEERS #EGE IF Ke=56 THEH 334 

310 IFKS180 THEH IF YREYE-S THEN YReYR+l: PLOT HR YR- 1,16: PLOT KR,YE 
F8 1FX=156 THEH IF YR14+1 THEN Re 1: PLOT RL VR+3, 16: PLOT “RTE 
L3û GOTO 160 
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Tapisserie 


HIDD MM E QUE ER 


— 
x 










Fotohilimemmn mur pe if Je ii 


[4 
pe 
5 


152 


[e 
FA 
[a] 
Fi 
fi 
(5) 
[e 
5 
(e 
E 


REM TAFISSERTE 


FEM Un Foint 8e deplace gur l'écran 
FEM gen laissant ung trace de couleur 
FEM la couleur change à chadue rebond 
REH 

LÜRESH 

HE 


:REM bornes x 
VE=2 :Ÿ 


REM bornes 4 





APRES: TPENEXHS :RENM coordonnées Point mobile 
amd :Wyel 








IF HPEHE+I OF HPOHH-1 THEN Vie-Vx: CaINTERMDC 1 #7 +1: GOTO 226 
IF VPEVE+T OR YP2TH-1 THEN Wie-Wy: Ce INTE RHDE 1 7 41: GOTO 228 





PLOT XP, YF, 1640 


APM AU VRP AENT 
GOTO 174 
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Explosion 


E#PLOET OH 










Mers né cible, 
int la cible: 
verse dans 4 directions, 


Un Foint 
AU Mimet 
celle ci se dis 








PE, LE PLOT KL De LEE PLOCE : GOTO 184 


LED REM=—— mm 
13% FÜR H=1 TO 
216 ©: PLOT K4M, Va, LE: FLOT 4h: 
PLOT 4h, M, LP: PLOT Has 
:PLOT K-H, 4H, 19: PLOT H-H+2, 
PLOT H-H, HN, 20: PLOT H-H+2 
HEXT H 
Hast2 
PLOT H+H, T4, 16: PLOT +, Y-M, LE 
PLOT AH Y4H, Lé:PLOT EH eh, LE 


mme URLs Len 













DRRERENE 


BLUE. 
AU RNNETELTXRERE NT ELX D: 


RENE ES 


WALT 184: GÛTO 4 
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Sapins 


1 REN SHFIHE 

1E 

15 REM Des 5: ns de taillée aléatoire 
16 FENM remplissent l'écran, 

EA : 


45 HIRES: IHKZ:PAPERT 





















BEM LS 
SE EL + EMDIE 1 CE LE 





FOR Hel TO 4 
FÜR Teil TO OH 
CLIRSET HAL, MAT, 1 
4 :ORAU T,E,1 

HET I 





ES eee Mel 
a HET H 

CURSET 0, 6, Le DRAM EH 
SA RETUFH 
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LL TE 


SIMULATEUR LOGO 


e Nous reprenons le simulateur logo présenté dans ‘ORIC 1 POUR TOUS. 
Nous lui avons ajouté quelques fonctions. 


DIS/ X : Division de la distance courante par X. 

DIK X : Multiplication de la distance courante par X. 
CENTRE : Positionne le point de départ. 

ENCRE X : La couleur d'écriture devient celle spécifiée (1-7) 


Exemple N° 1: 
Tracé des carrés centrés avec rotation. 








REPETE 4 
LEVE rl 
AVANCE 20 an 
ROTATION 90 centrés Départ 
AVANCE 20 
ROTATION 90 
DISTANCE 40 Carré 1 
CARRE 1 Fonction 
CENTRE An défie 
ROTATION 22.5 
ENCORE 


e Afin d'obtenir des carrés centrés, nous devons positionner les carrés avec : 





AVANCE 20 
ROTATION 90 
AVANCE 20 
ROTATION 90 











e Pour revenir au centre, nous avons créé une fonction ‘centre’. Celle-ci ne modifie pas 
l’angle en cours. 
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Exemple N°2: 


Tracé d'étoiles sur un cercle 


REPETE 8 
LEVE 
ROTATION 45 
AVANCE 50 
DISTANCE 15-F 
ETOILE 
LEVE 
AVANCE  — 50 

ENCORE 

Exemple N°3: 


Carrés emboités 


DISTANCE 30 
REPETE 4 
CARRE I 
DIS/ 1:2 
ENCORE 


Exemple N° 4: 


Carrés centrées 


DISTANCE 30 

REPETE 4 
LEVE 
DIS/ à 
AVANCE 
ROTATION 90 
AVANCE 
ROTATION 90 
DISK 2 
CARRE 1 
CENTRE 
ROTATION 180 
DISK 1.2 

ENCORE 
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Entrée des commandes avec INPUT : 


e L’instruction 550 READXS$ peut être remplacée par : INPUT ‘commande ?’; X$ 
e Les commandes ne sont exécutées qu'après la frappe de “X. 


Exemple : 

Commande ? AVANCE _20-% 
ROTATION 90 F 
AVANCE 307% 
X 


AMELIORATION POSSIBLE : 


Nous pourrions définir des variables : 


AVANCE X/2 


Il faudrait pour cela créer une table des variables et de leurs valeurs. 


< 
pe 
& 
< 
(ca 


GEIEI 
a [NN | & 
OQ1SOIOQ 
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14 FEN LOSOEIS SIMULATEUR LOGO eee eve nee ae ee 





166: Che : CY=: DISTSZA 
- Fagudo Froëranmme inter Frekte 


A RE definition etoile 

4 CATA GEFT ETOILE 

A CATA EAISSE 

3 DATA REFETE 4 

G DATA AMAHLE 

za CATA  FÎTATIOH 1684 

24 CATA AVANCE 

DATA  EOTATIUH F4 

DATA EHCÛRE 

DATA FIHI 

EM definition carre 

CAT DEFI CARRE 

CATA BAISSE 

DATA FEFETE 4 

DATA AVANCE 

CATA ROTATION 35 

DATA EHNCÛRE 

DATA FIHI 

REMSSSSSsesneneresesss trace carres centres avec rotation 
DATA. EHÈRE 5 

244 DATA FREFETE 4 

241 DATA LEVE 

242 DATA HYAHCE £4 

243 DATA ROTATION 39 

244 DATA AVANCE ZA 

245 CATA ROTATION 36 

246 DATA CDISTANCE 4% 

A  CARFREI 
CENTRE 
ROTATIOH 
ROTATION & 
DATA EHCQRE 


133 
mini 


nv 
+ 113 
— 
Dex 


mn, 
Fi LT 


Vo iummmeehnesenemmn ps ft 0 —j D EN En Z 
12 LE MMS 


RER EN EE EURE, EUX EUX ER, E 


ad Poe OL CG 


b 
L 








Fur 
Fi 
L] EN] 
Le 


DATA CENTRE 
REMreesseemeneessses trace etoiles sur un cercle 
CATA REPFETE & 
CAHTA LEVYE 

CATA  FUTATION 45 
CATA AVANCE 5 
CATA  DISTANCE 15 
DATA  ETÜILE 

135 CATA LEE 

44 CATA AVANCE -56 
54 DATA EHCÛRE 


ORIC POUR TOUS 






RE nnnnnnnnee carrées emboites 


ATR ROTAIT OH Si 
ATA AVANCE TE 









DATA 
DATA 











MAIRE Connie Éd LEE 


AT 
448 DATA 
445 DATA 
5à DATA 











AE 
ROTAT LOW HE 
AVANCE 
ROTATION HE 
FRE! 

MITRE 
bio LE 













F DATE CHE 
DATA Æ 





- Lécle dés commandées dans CEE ee 


FRIHT 
(HS, die"DEFI" THEN GOSUE 1254 : GOTO 558 
GOTO TA 


BC K, 6) THEH GÜBUE 13355 


EMA TNT 
 fel+l : GOT SE 
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Fame cé 





"THEM & 
© THEM G 
THEM G 
THEH G 
THEN 
THEH G 
THEH L 
THEH L 
THEH 
THE G 


AIEXE" 
ue FPLHL THEH EHC 








| LE LES) 


IF MIDBC LES, Fice" " THEH 


LAS 
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Et 
EE : 


LA : 
E 154% 
THEH GOSUE 1664 


+1: PRRERUSEERRS HE PE AL 


LME COUP arte ee 







ï 
ä 








“Es À EG 


ee pee ERA eme 


RETUEH 


RIGHTS LOS, LEME LEO ep 





Al TE JEH FL. Rp CPR: CUT ESA 


CTETEVALE RTCHTRE LES, LEME LOS ep 


1465 
1H PE 
1454 
1436 
LAS 


pars 
ES 


LD CM CAP ut uit 


Be pe be ps pe 


TJ PRE 


De] 


es (ee 
LR 
I En À 


me CL a fi Pan Pi Pa Pa 
DARUX EX | 





1 


RELAX 


Den RENAN ER EE ELTE 


15 
Cu CA D et 


= 
at 


M RE 
REX 


A, 










Gi 


EN sesasssmssesemenmnmmenenentnss TR CPOLtE sers 


GOSUE 64 

IF Fe THEH 1115 

MeYALC RIGHTS LG, LEMC LOS PCI eg THEM 1116 

CIST= MALE IST SE LOS, LEE LG ep 

Ù ETEL ES: De D TEST ELA 5 

IF C FIHC: Creÿ THEH PRINT "ERR:"LGS:MAIT SH: RETLEH 
IF Luel THEM KGeetlié ED: RETURH 






IF : SEA THEM IF HGCESS THEH IF GG THEM IF YASISES THEN 115 
PRINT MERE : MELLE A LS: MAIT SE: RETLUEH 








TF je: à THEN (IF KOC238 THEH IF 6 THEH IF YÉSLSE THEM 11358 
PRINT "ERR: "it, 6, LOGS: MAIT SE: FETURH 
CRAM Ci, Cri, 1 


RETLIRH 

REM nee Diicpement Jistante me 
GOSUE SE 

DISTSDIST+VALE RIGHTS LG, LEMC LOS 2F 55 


4 RETURH 


REM eee mms GÉOCk ae Fonction dans PRE eee 


3 HF=HF +1 


Fi HF ie TGHTÉE SSSR, LE 6 ee 
FÜR Pel TO 2H 


54 READ F&CHF. F3 


IF F#&CHF,Fos"FIHI" THEH KETUEH 

HEXT F 

STOF 

RENTE PE eee 
Pal 


IF F&ckK,P3e"FIMI" THEH RETURN 
CDS l=FSCK. F5 
Pap+l:1=1+1:G0T0 1354 

RE memes [ii nt À & À Qi 
GOSUE &64:1F F=4 THEH FETUEH 
VaWALE RIGHTS LGS, LEMC LG 3-50 
IF V<A THEN DISTDIST-V 
RETURN 

REM-——eemmmnnce ENCRE 
GOSUIE 











FL: 
LIGHT SE LOS, LEHE LG ep 
“El AND CSS THEH IHE 


EE 
GOSUE SE: 1F P=ÿ THEH RETURH 

IGHTSE LGS, LENC LOS DPF 22 

ä THEH DIST=DISTE#Y 







ï RETURN 
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DIFFERENCES ENTRE ORIC-1 
ET ORIC-ATMOS 


Le Basic de l’Oric-Atmos comporte quelques fonctions supplémentaires : sauvegarde de table 
sur cassette, vérification de sauvegarde et fusion de programmes. 


Les erreurs du Basic de l’Oric-1 ont été corrigées : 

e PRINT TAB () et LPRINT TAB () fonctionnent normalement; il n’est plus nécessaire 
d'ajouter 13 pour obtenir la tabulation désirée. 

e PRINT, fonctionne correctement (tabulation de 16 en 16) 

e pour éditer sur imprimante, il n’est plus nécessaire d’utiliser CALL # EDO01. 

© la fonction STR$ (X) place un espace (code 32) en début de chaîne (au lieu du caractère de 
code 2). 


Les adresses mémoire utilisées dans cet ouvrage sont les mêmes pour Oric-1 et Oric-Atmos : 


— # 208 (test clavier) 
— 46080 (caractères) 
— 40960 (écran graphique) 


En revanche, la plupart des adresses de routines appelées par CALL XXX ont été changées. 


STORE nom:table, nom fichier, vitesse : cette instruction sauvegarde une table sur cassette. 
Elle remplace la routine langage machine appelée par CALL 1024, nom table. 


19 DIM A$i26) 

29 FOR Izi TO 25 

39 ‘AFCII=STRE( I) 

49 HEXT I 

59 PRINT "APPUTEZ SUR <RECOFRIS FUIS <FET 
URH& " 

cg GET #4 

F4 STORE H#,"ADR".5 

89 PRINT "CEST FIHI" 

96 EHI 
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RECALL nom:-table, nom fichier, vitesse : transfère en mémoire une table sauvegardée par 
‘STORE. 


14 DIN A#(29) 
24 : 

23 PRINT "APPUYER SUR <PLANT PUIS <RETUR 
Ho" 

49 GET X$ 

59 : 

69 RECALL A$,"ADR".5 

79 : 

89 FOR I=1 TO 5 

94 :PRINT ACID 

199 HEXT I 


CLOAD nom-prog, V, vitesse : vérifie un programme. 


CLOAD nom:-prog, d, vitesse : fusionne un programme sur cassette avec le programme en 
mémoire. 


Les programmes de l'ouvrage ‘52 programmes’ des pages 39, 59, 64, 74 doivent être 
modifiés : 

— remplacer CALL 1024 par STORE et CALL 1027 par RECALL 

— supprimer GOSUB 20000. 
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PROGRAMMES 


“Oric-ophiles” réjouissez-vous, voici “52 programmes” pour votre ORIC-1 ou votre 
ORIC Atmos. | | | 
Faisant suite à l'ouvrage “Oric pour tous” ce recueil s'articule sur quatre thèmes : 


F patéiRe utilisant les fonctions particulières de l’Oric telles que KEY, PLOT, 


e ÉDUCATION, proposant des idées de programmes de géographie, orthographe, 
anglais, dessins. 

e GESTION, développant quelques exemples du type annuaire téléphonique, 
fichiers d'adresses, courrier paramétré.. 

e JEUX, tous les grands classiques, Allumettes, Le compte est bon, Biorythmes, Jeu 
de la vie, Marienbad, et beaucoup d’autres, y sont traités avec originalité. 

Tous ces programmes, largement commentés et illustrés vous permettront 
d'approfondir vos connaissances en Basic, et vous serviront de tremplin pour de 
nouvelles créations. 
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ANNEXE 


LES FROGRAMMES ‘ECT' ET ‘FMEM' FONCTIOMNHENT IHCIFFEREMENT 
SUR ORICI OÙ ORIC ATMOS EH YŸ AJOUTANT LES INSTRUCTIONS SUIVANTES: 


EDT (F74): 


16 CLS:INFUT "ORIC ATMOS<O/Ha "iRS:IF Rée"O" THEN Ale 

29 IF AlæQ THEH GOSUB 20056 

Es FAFERG:INK7 

417 FLOT 1,1-B1,LI# 12 

47é FOR I=El TO BZ:PLOT 1,1-B1,LISC ID): MEXT I 

437 FÜR 1sB1 TO BZ:PLOT 1,1-B1:LISCIS:HEXT L'LIeLI-1:GOTO 349 
2915 IF Alæz1 THEN RECALL LI$.,"":RETURH 

3025 IF All THEH STORE LI$%, "TEXTE" : RETURN 


FMENS FÉÉ 2: 


17 CLS:INPUT "ORIC ATMOSÉO/H) "5: RS:IF Ré="0" THEN Alsi 
29 IF Aleg THEH GOSUB 26888 

35 FAFERQ: INK? 

1155 IF Al=l THEH 1193 

1193 LG 11 =HFICH: LG 12 Se HRUB : LG€ 15 2=MFICH 

1194 STÛRE LG; "LOG" PRINT "LG"ILG:MAIT 388 

1195 STORE HRUBS, "HRUE":UAIT 2@@ 

1136 STORE TYFS$,"TYP':HAIT 208 

1197 STORE FICHS$,'"FICH":RETURH 


1295 IF Alsi THEH 13F& 

1574 RECALL LG," 

1SFE FRINT "LG" :NFICHeL(GE 11 2: NRUBaLG6 125: MFICHaeLGE 139:% LG 110 

1374 IF FO=@ THEH CIM FICH#C MF ICH, HRUB , CTRISCMFICH, IXXE MFICHO:FDæ]l 
1576 RECALL HEUBS,"" 

1375 RECALL TYFS$,"" 

1388 RECALL FICH&."" 

1392 RETURH 

4938 PLOT 2,L+1,MRUB&L 2 


SUR ATMOS, PLOT %#,%7 EST EGUIVALENT A PLOT #+i:+1 SUR ORICI. 
FLOT 1,v,"Hkx" AFFICHE ‘HKX' EH COULEUR BLANCHE ET NOH FAS 
AVEC LA COULEUR C'ENCRE CHOISIE FAR IHK, 


